Aminet 12

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / lang / HeliOS4.lha / helios_demo_disk4 / HeliOS_VocabularyHelp < prev next >

Wrap

Text File | 1995-07-10 | 83.0 KB | 6,703 lines

************************* THIS VOCABULARY HELP FILE ************************* The HeliOS Vocabulary Help system is intended for your own use, and can perform a variety of useful functions allowing you to create your own editable on-line help. Please read the following document files to get a more detailed overview of the more advanced features of the Vocabulary Help system: "HeliOS:Docs/UserInterface/HeliOS_Macro_Commands.doc" "HeliOS:Docs/UserInterface/HelpSystems.doc" At its most simple, the Vocabulary Help system can be used to create short notes on any functions which you write, or those which are in the HeliOS CORE vocabulary. This file, which you are reading, starts with a short text describing how to edit and enter your own help texts, and then goes on to provide a set of basic help texts for all the HeliOS CORE words. This initially provided vocabulary help is merely intended as a starting point, and gives you a series of brief help texts in the form of commented stack diagrams, to which you may add your own notes as you progress. As well as providing short help texts, a Vocabulary Help file can be expanded to include special information which can be used in conjunction with HeliOS macro keys to form a very advanced interactive editable help system. Please read the two above mentioned documents for further instructions on more advanced topics: the notes contained in this present file will only give basic information on how to edit simple Vocabulary Help files. **************** USING HELP FILES **************** This file, and all other vocabulary help files, can be edited using any ASCII text editor. You may create several help files like this one if you wish, and load each one as required. Only one help file may be loaded at any time. Single target words are matched with the word under the cursor when vocabulary help is invoked, and the associated text in this file is presented in the HeliOS help display. *************** DEFAULT STARTUP *************** If you wish to have a vocabulary help file loaded at startup time as the default, you must save the file as "S:HeliOS_VocabularyHelp". ********** INVOCATION ********** Vocabulary help can be obtained in the interpreter or editors by: 1. Pressing the HELP gadget on screen while holding down the <CTRL> or <SHIFT> keys. or 2. Pressing the HELP key on the keyboard while holding down the <CTRL> or <SHIFT> keys. or 3. Selecting the "Help on vocabulary" menu item in the first menu of the interpreter and editor menus. The word under the text cursor will be used as the target word for matching with entries in the vocabulary help file. Two pages of vocabulary help are possible, and the software will auto-sense whether the second page is present for any item. If a second page is present a prompt will inform the user to toggle the two help pages by pressing the HELP key. ****************** CASE INSENSITIVITY ****************** The target word matching is NOT case sensitive. ********************** HELP FILE ENTRY FORMAT ********************** Each entry in the file must be of the following format: {{ ^^ This signifies the start of an entry, and should be followed by the target word. {{TARGETWORD ^^^^^^^^^^ This target word will be matched to the word under the cursor when you invoke vocabulary help. Only the single <SPACE> delimited word under the cursor will be used for matching purposes, so your target word should also be a single word without spaces. {{TARGETWORD& ^ This "&" signifies the end of a line of single page text, and should be placed immediately after the target word and at the end of each subsequent line. (See later for "two page" help text format) e.g. First line of help text.& Second line of help text.& Third line of help text.& etc. etc. }} ^^ This signifies the end of an entry, and should be placed after the last line of the entry. (After the last end of line "&" character). **************************** AN EXAMPLE SINGLE-PAGE ENTRY **************************** {{TARGETWORD& & First line of help text.& & Second line of help text.& & Third line of help text.& }} ********** EXTRA PAGE ********** You can, if you wish, enter a second section of text AFTER the & end-of-line characters. e.g. {{TARGETWORD& & This second HELP page can contain First line of help text. & extra notes or anything else..... & Second line of help text. & & Third line of help text. & }} Note that the first column of each line of the second help page text will start according to its position relative to the preceding "&" character. The HELP presentation system will automatically detect whether a second HELP page is present, and if so it will show a message informing the user that pressing HELP again will give further help text. *********** CONSTRAINTS *********** There are a few constraints imposed by the limits of the help display. The limits mentioned below (of 47 characters and 7 lines) will be automatically imposed when the entry is displayed on screen. It is perfectly safe to exceed these limits within this file, but any extra text will not be displayed. These constraints are rather arbitrary in that they merely reflect the self-imposed limitation of the help display size. This could, of course have been made larger, but ultimately there has to be some limit. Keeping the help display small enforces a certain economy of expression which results in a tidier, faster, and more memory efficient system. It also means that information is more compact and quickly assimilated, so although more thought has to go into the creation of the help texts, the end result is more effective. Here are the limitations: The maximum displayable line length is 47 characters. Lines longer than 47 characters will be truncated to 47 charatcters when displayed on screen. The maximum number of lines per entry, not including the target word itself, is 7 lines. Entries having more than 7 lines will be truncated when displayed and only 7 lines will be shown. ************************************************************************* Here is a first entry, for the Forth word ".S". {{.S & Notes: ( - - - ) & & This is a test note for Displays the contents of the stack. & demonstration purposes. }} ************************************************************************* Here are a set of entries with stack diagram help. Add your own text as you wish. {{"RAW"& ( == a1 )& & & -> PString(a1). & }} {{$DOSCMD& ( l1 == )& & <- PString(l1). & }} {{ALTERNATE& ( l1 d1 == )& & <- PString(l1), mode(d1). & }} {{BAKSET& ( flag == )& & <- 1_or_0(flag). & }} {{CLOSE& ( l1 == )& & <- FileHandle(l1). & }} {{CLOSEALT& ( == )& & }} {{DELETEFILE& ( l1 == d1 )& & <- PString(l1). & & -> -1._or_0.(d1). & }} {{DOSCMD& ( == )& & }} {{EXISTS& ( l1 == flag )& & <- PString(l1). & & -> 1_or_0(flag). & }} {{FILECLOSE& ( l1 == )& & <- PString(l1). & }} {{FILEHANDLE& ( l1 == l2 )& & <- PString(l1). & & -> FileHandle(l2). & }} {{FILELOAD& ( l1 l2 d1 == )& & <- FileHandle(l1), Buffer(l2). num_bytes(d3). & }} {{FILEMODE& ( l1 == d1 )& & <- FileHandle(l1). & & -> file_mode(d1). & }} {{FILENAME& ( l1 == l2 )& & <- FileHandle(l1). & & -> PSting(l2). & }} {{FILEOFF& ( == )& & }} {{FILEON& ( == )& & }} {{FILEOPEN& ( l1 d1 == l2 )& & <- PString(l1), open_mode(d1). & & -> FileHandle_or_0.(l2). & }} {{FILEREQUEST& ( n1 == l1 )& & <- request_mode(n1). PString_or_0.(l1). & }} {{FILESAVE& ( l1 l2 d1 == )& & <- PString(l1), Buffer(l2), num_bytes(d1). & }} {{FILESIZE& ( l1 == d1 )& & <- FileHandle(l1). & & -> num_bytes(d1). & }} {{IOERR& ( == d1 )& & & -> last_error_code(d1). & }} {{LOCK& ( l1 d1 == l2 )& & <- PString(l1). lock_mode(d1). & & -> FileLock_or_0.(l2). & }} {{OPEN& ( l1 d1 == l2 )& & <- PString(l1), open_mode(d1). & & -> FileHandle_or_0.(l2). & }} {{OPENALT& ( l1 d1 == )& & <- PString(l1), open_mode(d1). & }} {{READ& ( l1 l2 d1 == d2 )& & <- FileHandle(l1), Buffer(l2), num_bytes(d1). & & -> num_bytes_or_-1.(d2). & }} {{RENAME& ( l1 l2 == d1 )& & <- PString(l1), PString(l2). & & -> -1._or_0.(d1). & }} {{SEEK& ( l1 d1 d2 == d3 )& & <- FileHandle(l1), position(d1), & & -> position_mode(d2). new_position_or_-1(d3). & }} {{UNLOCK& ( l1 == )& & <- FileLock(l1). & }} {{WRITE& ( l1 l2 d1 == d2 )& & <- FileHandle(l1), Buffer(l2), num_bytes(d1). & & -> num_bytes_or_-1.(d2). & }} {{D+& ( d1 d2 == d3 )& & <- number(d1). number(d2). & & -> sum(d3). & }} {{D+-& ( d1 d2 == d3 )& & <- number(d1), signed(d2). & & -> result(d3). & }} {{D-& ( d1 d2 == d3 )& & <- number(d1), number(d2). & & -> difference(d3). & }} {{D2*& ( d1 == d2 )& & <- multiplicand(d1). & & -> product(d2). & }} {{D1+& ( d1 == d2 )& & <- number(d1). & & -> sum(d2). & }} {{D1-& ( d1 == d2 )& & <- number(d1). & & -> difference(d2). & }} {{D2+& ( d1 == d2 )& & <- number(d1). & & -> difference(d2). & }} {{D2-& ( d1 == d2 )& & <- number(d1). & & -> difference(d2). & }} {{D2/& ( d1 == d2 )& & <- number(d1). & & -> signed_quotient(d2). & }} {{D4*& ( d1 == d2 )& & <- multiplicand(d1). & & -> product(d2). & }} {{D4/& ( d1 == d2 )& & <- number(d1). & & -> signed_quotient(d2). & }} {{DABS& ( d1 == d2 )& & <- number(d1). & & -> absolute_value(d2). & }} {{DNEGATE& ( d1 == d2 )& & <- signed_number(d1). & & -> twos_complement(d2). & }} {{*/& ( n1 n2 n3 == n4 )& & <- signed_multiplicand(n1), & signed_mulitplier(n2), signed_divisor(n3). & & -> signed_quotient(n4). & }} {{*/MOD& ( n1 n2 n3 == n4 n5 )& & <- signed_number(n1), signed_muliplier(n2), & signed_divisor(n3). & & -> signed_remainder(n4), signed_quotient(n5). & }} {{*ASR& ( n1 n2 n3 == n4 )& & <- signed_multiplicand(n1), & signed_multiplier(n2), num_operations(n3). & & -> signed_result(n4). & }} {{M*& ( n1 n2 == d1 )& & <- signed_16-bit_multiplicand(n1), & signed_16-bit_mulitplier(n2). & & -> signed_32-bit_product(d1). & }} {{M*/& ( d1 n1 n2 == d2 )& & <- signed_32-bit_multiplicand(d1), & signed_16-bit_multiplier(n1), & signed_16-bit_divisor(n2). & & -> signed_32-bit_quotient(d2). & }} {{M+& ( d1 n1 == d2 )& & <- 32-bit_number(d1), 16_bit_number(n1). & & -> 32-bit_sum(d2). & }} {{M-& ( d1 n1 == d2 )& & <- 32-bit_number(d1), 16-bit_number(n1). & & -> 32-bit_difference(d2). & }} {{M/& ( d1 n1 == n2 )& & <- signed_32-bit_dividend(d1), & signed_16-bit_divisor(n1). & & -> signed_16-bit_quotient(n2). & }} {{M/MOD& ( d1 n1 == n2 n3 )& & <- signed_32-bit_dividend(d1). & signed_16_bit_divisor(n1). & & -> signed_16-bit_remainder(n2). & signed_16-bit_quotient(n3). & }} {{U*/& ( u1 u2 u3 == u4 )& & <- unsigned_16-bit_number(u1), & unsigned_16-bit_multiplier(u2), & unsigned_16-bit_divisor(u3). & & -> unsigned_16-bit_result(u4). & }} {{U*& ( u1 u1 == ud1 )& & <- unsigned_16-bit_multiplicand(u1), & unsigned_16-bit_multiplier(u2). & & -> unsigned_32-bit_product(ud1). & }} {{U*LSR& ( u1 u2 u3 == u4 )& & <- unsigned_16-bit_multiplicand(u1), & unsigned_16-bit_multiplier(u2), & num_operations(u3). & & -> unsigned_16-bit_result(u4). & }} {{U/& ( ud1 u1 == u2 )& & <- unsigned_32-bit_dividend(ud1), & unsigned_16-bit_divisor(u1). & & -> unsigned_16-bit_quotient(u2). & }} {{U/MOD& ( ud1 u1 == u2 u3 )& & <- unsigned_32-bit_dividend(ud1), & unsigned_16-bit_divisor(u1). & & -> unsigned_16-bit_remainder(u2), & unsigned_16-bit_quotient(u3). & }} {{UM/DMOD& ( ud1 u1 == u2 ud2 )& & <- unsigned_32-bit_dividend(ud1), & unsigned_16-bit_divisor(u1). & & -> unsigned_16-bit_remainder(u2). & unsigned_32-bit_quotient(ud2). & }} {{*& ( n1 n2 == n3 )& & <- signed_multilicand(n1), & signed_multiplier(n2). & & -> signed_product(n3). & }} {{+& ( n1 n2 == n3 )& & <- number(n1), number(n2). & & -> sum(n3). & }} {{+-& ( n1 n2 == n3 )& & <- number(n1), signed_number(n2). & & -> result(n3). & }} {{-& ( n1 n2 == n3 )& & <- number(n1), number(n2). & & -> difference(n3). & }} {{/& ( n1 n2 == n3 )& & <- dividend(n1), divisor(n2). & & -> signed_quotient(n3). & }} {{/MOD& ( n1 n2 == n3 n4 )& & <- dividend(n1), divisor(n2). & & -> signed_remainder(n3), signed_quotient(n4). & }} {{1+& ( n1 == n2 )& & <- number(n1). & & -> sum(n2). & }} {{1-& ( n1 == n2 )& & <- number(n1). & & -> difference(n2). & }} {{2*& ( n1 == n2 )& & <- multiplicand(n1). & & -> product(n1). & }} {{2+& ( n1 == n2 )& & <- number(n1). & & -> sum(n2). & }} {{2-& ( n1 == n2 )& & <- number(n1). & & -> difference(n2). & }} {{2/& ( n1 == n2 )& & <- number(n1). & & -> signed_quotient(n2). & }} {{4*& ( n1 == n2 )& & <- multiplicand(n1). & & -> product(n1). & }} {{4/& ( n1 == n2 )& & <- number(n1). & & -> signed_quotient(n2). & }} {{ABS& ( n1 == n2 )& & <- signed_number(n1). & & -> absolute_value(n2). & }} {{MOD& ( n1 n2 == n3 )& & <- dividend(n1), divisor(n2). & & -> remainder(n3). & }} {{NEGATE& ( n1 == n2 )& & <- signed_number(n1). & & -> twos_complement(n2). & }} {{AND& ( n1 n2 == n3 )& & }} {{ASL& ( n1 n2 == n3 flag )& & <- number(n1), num_ASL(n2). & & -> number(n3), 1_or_0(flag). & }} {{ASR& ( n1 n2 == n3 )& & <- number(n1), num_ASR(n2). & & -> number(n3). & }} {{BCLR& ( n1 b == n2 )& & <- number(n1), position(b). & & -> number(n2). & }} {{BSET& ( n1 b == n2 )& & <- number(n1), position(b). & & -> number(n2). & }} {{BTST& ( n1 b == n1 flag )& & <- number(n1), position(b). & & -> number(n1), 1_or_0(flag). & }} {{DAND& ( d1 d2 == d3 )& & }} {{DASL& ( d1 n1 == d2 flag )& & <- number(d1), num_ASL(n1). & & -> number(d2), 1_or_0(flag). & }} {{DASR& ( d1 n1 == d2 )& & <- number(d1). num_ASR(n1). & & -> number(d2). & }} {{DBCLR& ( d1 b == d2 )& & <- number(d1), position(b). & & -> number(d2). & }} {{DBSET& ( d1 b == d1 )& & <- number(d1), position(b). & & -> number(d2). & }} {{DBTST& ( d1 b == d1 f )& & <- number(d1), position(b). & & -> number(d1), 1_or_0(flag). & }} {{DLSL& ( d1 n1 == d2 )& & <- number(d1). num_LSL(n1). & & -> number(d2). & }} {{DLSR& ( d1 n1 == d2 )& & <- number(d1). num_LSL(n1). & & -> number(d2). & }} {{DOR& ( d1 d2 == d3 )& & }} {{DXOR& ( d1 d2 == d3 )& & }} {{LSL& ( n1 n2 == n3 )& & <- number(n1). num_LSL(n2). & & -> number(n3). & }} {{LSR& ( n1 n2 == n3 )& & <- number(n1). num_LSR(n2). & & -> number(n3). & }} {{OR& ( n1 n2 == n3 )& & }} {{XOR& ( n1 n2 == n3 )& & }} {{0<& ( n1 == flag )& & <- signed_number(n1). & & -> 1_or_0(flag). & }} {{0<>& ( n1 == flag )& & <- number(n1). & & -> 1_or_0(flag). & }} {{0=& ( n1 == flag )& & <- number(n1). & & -> 1_or_0(flag). & }} {{0>& ( n1 == flag )& & <- signed_number(n1). & & -> 1_or_0(flag). & }} {{<& ( n1 n2 == flag )& & <- signed_number(n1), signed_limit(n2). & & -> 1_or_0(flag). & }} {{<=& ( n1 n2 == flag )& & <- signed_number(n1), signed_limit(n2). & & -> 1_or_0(flag). & }} {{<>& ( n1 n2 == flag )& & <- signed_number(n1), signed_number(n2). & & -> 1_or_0(flag). & }} {{=& ( n1 n2 == flag )& & <- signed_number(n1), signed_number(n2). & & -> 1_or_0(flag). & }} {{>& ( n1 n2 == flag )& & <- signed_number(n1), signed_limit(n2). & & -> 1_or_0(flag). & }} {{>=& ( n1 n2 == flag )& & <- signed_number(n1), signed_limit(n2). & & -> 1_or_0(flag). & }} {{D0<& ( d1 == flag )& & <- signed_number(d1). & & -> 1_or_0(flag). & }} {{D0<>& ( d1 == flag )& & <- signed_number(d1). & & -> 1_or_0(flag). & }} {{D0=& ( d1 == flag )& & <- signed_number(d1). & & -> 1_or_0(flag). & }} {{D0>& ( d1 == flag )& & <- signed_number(d1). & & -> 1_or_0(flag). & }} {{D<& ( d1 d2 == flag )& & <- signed_number(d1), signed_limit(d2). & & -> 1_or_0(flag). & }} {{D<=& ( d1 d2 == flag )& & <- signed_number(d1), signed(d2). & & -> 1_or_0(flag). & }} {{D<>& ( d1 d2 == flag )& & <- number(d1), number(d2). & & -> 1_or_0(flag). & }} {{D=& ( d1 d2 == flag )& & <- number(d1), number(d2). & & -> 1_or_0(flag). & }} {{D>& ( d1 d2 == flag )& & <- signed_number(d1), signed_limit(d2). & & -> 1_or_0(flag). & }} {{D>=& ( d1 d2 == flag )& & <- signed_number(d1), signed_limit(d2). & & -> 1_or_0(flag). & }} {{DMAX& ( d1 d2 == d1 or d2 )& & <- signed_number(d1), signed_number(d2). & & -> signed_number(d1 or d2). & }} {{DMIN& ( d1 d2 == d1 or d2 )& & <- signed_number(d1), signed_number(d2). & & -> signed_number(d1 or d2). & }} {{DU<=& ( ud1 ud2 == flag )& & <- unsigned_number(ud1), unsigned_limit(ud2). & & -> 1_or_0(flag). & }} {{DU<& ( ud1 ud2 == flag )& & <- unsigned_number(ud1), unsigned_limit(ud2). & & -> 1_or_0(flag). & }} {{DU>& ( ud1 ud2 == flag )& & <- unsigned_number(ud1), unsigned_limit(ud2). & & -> 1_or_0(flag). & }} {{DU>=& ( ud1 ud2 == flag )& & <- unsigned_number(ud1), unsigned_limit(ud2). & & -> 1_or_0(flag). & }} {{DUMAX& ( ud1 ud2 == ud1 or ud2 )& & <- unsigned_number(ud1), unsigned_number(ud2). & & -> unsigned_number(ud1 or ud2). & }} {{DUMIN& ( ud1 ud2 == ud1 or ud2 )& & <- unsigned_number(ud1), unsigned_number(ud2). & & -> unsigned_number(ud1 or ud2). & }} {{DUWITHIN& ( ud1 ud2 ud3 == flag )& & <- unsigned_number(ud1), & unsigned_lo_limit(ud2), & unsigned_hi_limit(ud3). & & -> 1_or_0(flag). & }} {{DWITHIN& ( d1 d2 d3 == flag )& & <- signed_number(d1), signed_lo_limit(d2), & signed_hi_limit(d2). & & -> 1_or_0(flag). & }} {{MAX& ( n1 n2 == n1 or n2 )& & <- signed_number(n1), signed_number(n2). & & -> signed_number(n1 or n2). & }} {{MIN& ( n1 n2 == n1 or n2 )& & <- signed_number(n1), signed_number(n2). & & -> signed_number(n1 or n2). & }} {{U<& ( u1 u2 == flag )& & <- unsigned_number(u1), unsigned_limit(u2). & & -> 1_or_0(flag). & }} {{U<=& ( u1 u2 == flag )& & <- unsigned_number(u1), unsigned_limit(u2). & & -> 1_or_0(flag). & }} {{U>& ( u1 u2 == flag )& & <- unsigned_number(u1), unsigned_limit(u2). & & -> 1_or_0(flag). & }} {{U>=& ( u1 u2 == flag )& & <- unsigned_number(u1), unsigned_limit(u2). & & -> 1_or_0(flag). & }} {{UMAX& ( u1 u2 == u1 or u2 )& & <- unsigned_number(u1), unsigned_number(u2). & & -> unsigned_number(u1 or u2). & }} {{UMIN& ( u1 u2 == u1 or u2 )& & <- unsigned_number(u1), unsigned_number(u2). & & -> unsigned_number(u1 or u2). & }} {{UWITHIN& ( u1 u2 u3 == flag )& & <- unsigned_number(u1), unsigned_lo_limit(u2), & unsigned_hi_limit(u3). & & -> 1_or_0(flag). & }} {{WITHIN& ( n1 n2 n3 == flag )& & <- signed_number(n1), signed_lo_limit(n2), & signed_hi_limit(n3). & & -> 1_or_0(flag). & }} {{"$& ( == )& & }} {{$& ( == )& & }} {{(& ( == )& & }} {{(PRELOAD)& ( l1 == )& & <- PString(l1). & }} {{(RUN)& ( l1 == )& & <- PString(l1). & }} {{**CORE**& ( == )& & }} {{,& ( n1 == )& & <- number(n1). & }} {{.(& ( == )& & }} {{:& ( == )& & }} {{;& ( == )& & }} {{;CODE& ( == )& & }} {{;S& ( == )& & }} {{<$& ( == )& & }} {{ABORT"& ( compilation -- == -- run-time flag == -- )& & }} {{ALIGNED& ( == )& & }} {{ALLOT& ( n1 == )& & <- num_bytes(n1). & }} {{ALLOTFILL& ( n1 c1 == )& & <- num_bytes(n1). ascii_code(c1). & }} {{AMIGAINCLUDE& ( == )& & }} {{C,& ( c1 == )& & <- 8-bit_number(c1). & }} {{CODE& ( == )& & }} {{COMPILE& ( == )& & }} {{D,& ( d1 == )& & <- 32-bit_number(d1). & }} {{DLITERAL& ( d1 == )& & <- 32-bit_number(d1). & }} {{DOES>& ( == )& & }} {{ENDCODE& ( == )& & }} {{EXITCODE& ( == )& & }} {{FORGET& ( == )& & }} {{FORTH& ( == )& & }} {{HERE& ( == a1 )& & & -> 16-bit_Address(a1). & }} {{IMMEDIATE& ( == )& & }} {{LATESTCFA& ( == cfa )& & & -> Location(cfa). & }} {{LIT& ( == n1 )& & & -> number(n1). & }} {{LIT$& ( == )& & }} {{LIT$L& ( == )& & }} {{LITERAL& ( n1 == )& & <- number(n1). & }} {{LOAD& ( n1 == )& & <- source_no(n1). & }} {{LONGINCLUDE& ( == )& & }} {{MYSELF& ( == )& & }} {{PRELOAD& ( == )& & }} {{RUN& ( == )& & }} {{SMUDGE& ( == )& & }} {{SOURCESTART& ( == a1 )& & <- DVariable(a1). & }} {{SUBROUT& ( == a1 )& & <- Location(a1). & }} {{USERINCLUDE& ( == )& & }} {{WORDINCLUDE& ( == )& & }} {{[& ( == )& & }} {{[COMPILE]& ( == )& & }} {{\& ( == )& & }} {{]& ( == )& & }} {{COPPERADD& ( n1 == flag )& & <- value(n1). & & -> 1_or_0(flag). & }} {{COPPEREND& ( == l1 d1 or 0. )& & & -> CopperStart(l1). num_bytes(d1)| & }} {{COPPERMOVE& ( n1 n2 == flag )& & <- value(n1), hardware_offset(n1). & & -> 1_or_0(flag). & }} {{COPPERSKIP& ( n1 n2 n3 == flag )& & <- hor_wait(n1), ver_wait(n2), ctrl(n3). & & -> 1_or_0(flag). & }} {{COPPERSTART& ( l1 )& & }} {{COPPERWAIT& ( n1 n2 n3 == flag )& & <- hor_wait(n1), ver_wait(n2), ctrl(n3). & & -> 1_or_0(flag). & }} {{MAKESTRUCTURE& ( d1 == l1 )& & <- num_bytes(d1). & & -> Location_or_0.(l1). & }} {{STRUCTURE1& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE10& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE11& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE12& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE13& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE14& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE15& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE16& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE2& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE3& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE4& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE5& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE6& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE7& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE8& ( l1 == )& & & -> Structure(l1). & }} {{STRUCTURE9& ( l1 == )& & & -> Structure(l1). & }} {{SETSTRUCTURE1& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE10& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE11& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE12& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE13& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE14& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE15& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE16& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE2& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE3& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE4& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE5& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE6& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE7& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE8& ( l1 == )& & <- Structure(l1). & }} {{SETSTRUCTURE9& ( l1 == )& & <- Structure(l1). & }} {{SETDEBUG& ( n1 == )& & <- Cfa(n1). & }} {{SETDEBUG#& ( n1 == )& & <- number(n1). & }} {{SETDEBUGBUFFER& ( n1 == )& & }} {{GETDEBUGLEVEL& ( == n1 )& & & -> interpret_depth(n1). & }} {{SETDEBUGPAUSE& ( == )& & }} {{SETDEBUGSCREEN& ( n1 == )& & }} {{SETDEBUGSTEP& ( n1 == )& & }} {{SHOWDEBUGWORD& ( n1 == )& & <- interpret_level(n1). & }} {{CLEARPOINTER& ( ptr == )& & <- PointerName(ptr). & }} {{CONSTANT& ( n1 == )& & <- value(n1). & }} {{CREATE& ( == )& & }} {{CREATEL& ( == )& & }} {{CVARIABLE& ( c1 == )& & <- initial_value(c1). & }} {{CVARIABLEL& ( c1 == )& & <- initial_value(c1). & }} {{DCONSTANT& ( d1 == )& & <- value(d1). & }} {{DPOINTER& ( d1 == )& & <- initial_value(d1). & }} {{DVARIABLE& ( d1 == )& & <- initial_value(d1). & }} {{DVARIABLEL& ( d1 == )& & <- initial_value(d1). & }} {{MAKEPOINTER& ( d1 ptr == )& & <- number(d1), PointerName(ptr). & }} {{VARIABLE& ( n1 == )& & <- initial_value(n1). & }} {{VARIABLEL& ( n1 == )& & <- initial_value(n1). & }} {{GFXARCSIN& ( n1 == n2 )& & <- 32767*sin_value(n1). & & -> angle_value(n2). & }} {{GFXAREACLOSE& ( == )& & }} {{GFXAREADRAW& ( n1 n2 == )& & <- x_coordinate(n1), x_coordinate(n2). & }} {{GFXAREAELLIPSE& ( n1 n2 n3 n4 == )& & <- centre_x(n1), centre_y(n2), & horizontal_radius(n3), vertical_radius(n4). & }} {{GFXAREAEND& ( == )& & }} {{GFXAREAMOVE& ( n1 n2 == )& & <- x_coordinate(n1), y_coordinate(n2). & }} {{GFXAREAPAT& ( l1 n1 == )& & }} {{GFXBLTBMAP& ( l1 n1 n2 n3 n4 n5 n6 n7 n8 l2 l3 == )& & <- TmpA_buffer(l1), mask(n1), minterm(n2), & size_x(n3), size_y(n4), source_x(n5), & source_y(n6), destination_x(n7), & destination_y(n8), BitMap_source(l2), & BitMap_destination(l3). & }} {{GFXBLTCLEAR& ( l1 d1 d2 == )& & <- Memory_Block(l1), byte_count(d1), flags(d2). & }} {{GFXBLTPATTERN& ( l1 n1 n2 n3 n4 n5 == )& & <- Mask(l1), x_topleft(n1), y_topleft(n2), & x_lowerright(n3), y_lowerright(n4), & width(n5). & }} {{GFXBLTTEMPLATE& ( n1 n2 n3 n4 n5 n6 l1 l2 == )& & <- x_size(n1), y_size(n2), x_source(n3), & source_modulo(n4), x_dest(n5), y_dDest(n6), & Source_Plane(l1), Destination_RastPort(l2). & }} {{GFXCOS& ( n1 == n2 )& & <- angle_value(n1). & & -> 32767*cos_n1(n2). & }} {{GFXDRAW& ( n1 n2 == )& & <- x_coordinate(n1), y_coordinate(n2). & }} {{GFXDRAWELLIPSE& ( n1 n2 n3 n4 == )& & <- center_x_coordinate(n1), & center_y_coordinate(n2), & horizontal_radius(n3), vertical_radius(n4). & }} {{GFXDSQROOT& ( d1 == n1 )& & <- number(d1). & & -> number(n1). & }} {{GFXFASTREADPIXEL& ( l1 n1 n2 == )& & <- BitMap(l1), x-coordinate(n1), & y-coordinate(n2). & }} {{GFXFASTWRITEPIXEL& ( l1 n1 n2 n3 == )& & }} {{GFXGETRGB& ( n1 == n2 n3 n4 )& & <- colour_no(n1). & & -> red_level(n2), green_level(n3), & blue_level(n4). & }} {{GFXLINEPAT& ( n1 == )& & <- number(n1). & }} {{GFXMOVE& ( n1 n2 == )& & <- x_coordinate(n1), y_coordinate(n2). & }} {{GFXORIGIN& ( n1 n2 == )& & <- x_coordinate(n1), y_coordinate(n2). & }} {{GFXOUTLINE& ( n1 == )& & <- 1_or_0(n1). & }} {{GFXPOLYDRAW& ( n1 a1 == )& & <- num_points(n1), Coordinatess_Table(a1). & }} {{GFXREAD& ( n1 n2 == n3 )& & <- x_coord(n1), y_coord(n2). & & -> colour_no(n3). & }} {{GFXRECTFILL& ( n1 n2 n3 n4 == )& & <- x_min(n1), y_min(n2), x_max(n3), y_max(n4). & }} {{GFXRPORT& ( == l1 )& & & -> RasPort(l1). & }} {{GFXSCREEN& ( == l1 )& & & -> Screen(l1). & }} {{GFXSCROLLRAST& ( n1 n2 n3 n4 n5 n6 == )& & <- scroll_dx(n1), scroll_dy(n2), x_min(n3), & y_min(n4), x_max(n5), y_max(n6). & }} {{GFXSETAPEN& ( n1 == )& & <- colour_no(n1). & }} {{GFXSETBPEN& ( n1 == )& & <- colour_no(n1). & }} {{GFXSETDMODE& ( n1 == )& & <- draw_mode(n1). & }} {{GFXSETOPEN& ( n1 == )& & <- colour_no(n1). & }} {{GFXSETRAST& ( == )& & <- colour_no(n1). & }} {{GFXSETRGB& ( n1 n2 n3 n4 == )& & <- colour_no(n1), red_level(n2), & green_level(n3), blue_level(n4). & }} {{GFXSIN& ( n1 == n2 )& & <- angle_value(n1). & & -> 32767*sin_n1(n2). & }} {{GFXSWAPWINDOW& ( == )& & }} {{GFXTEXT& ( a1 n1 == )& & <- UString(a1), count(n1). & }} {{GFXTRAWINDOW& ( l1 == )& & <- Window(l1). & }} {{GFXVPORT& ( == l1 )& & & -> ViewPort(l1). & }} {{GFXWAITBOVP& ( == )& & }} {{GFXWAITTOF& ( == )& & }} {{GFXWINDOW& ( == l1 )& & & -> Window(l1). & }} {{GFXWRITE& ( n1 n2 == )& & <- x_coordinate(n1), y_coordinate(n2). & }} {{ADDCOPPERSTRIP& ( l1 l2 == l1 )& & <- Display(l1), Copperlist(l2). & & -> Display(l1). & }} {{CLOSESLICECONTROL& ( l1 == )& & <- SliceControl(l1). & }} {{FLASHSLICE& ( l1 l2 == )& & <- Slice(l1), SLFlash(l2). & }} {{FLASHSLICEOFF& ( l1 == )& & <- SLFlash(l1). & }} {{FRAMERATE& ( == l1 )& & <- VariableL(l1 ). & }} {{FREECOPSTRIP& ( l1 == )& & <- Slice(l1). & }} {{FREEDISPLAY& ( l1 == )& & <- Display(l1). & }} {{HELIOSMPOINTER& ( flag == )& & <- 1_or_0(flag). & }} {{HELIOS_OFF& ( == )& & }} {{HELIOS_OFF& ( == )& & }} {{INSTALLMOTOR& ( l1 == )& & <- MotorStruct(l1). & }} {{INSTALLSLICECONTROL& ( l1 == )& & <- SliceControl(l1). & }} {{LEFTNUM& ( l1 d1 n1 n2 n3 n4 n5 == )& & <- BitMap(l1), number(d1), field_length(n1), & x_pos(n2), y_pos(n3), background_pen(n4), & foreground_pen(n5). & }} {{LINKSTRIPS& ( l1 == l1 )& & <- Display(l1). & & -> Display(l1). & }} {{MAKECOPSTRIP& ( l1 == l1 )& & <- Slice(l1). & & -> Slice_or_0.(l1). & }} {{MAKEDISPLAY& ( l1 == l1 )& & <- Display(l1). & & -> Display_or_0.(l1). & }} {{MAKEDPSLICECONTROL& ( l1 n1 n2 n3 n4 == l2 )& & <- Slice(l1), width(n1), heigth(n2), width(n3), & height(n4). & & -> SliceCtrl_or_0.(l2). & }} {{MAKEFLASH& ( l1 l2 l3 == l4 )& & <- FrameList(l1), ColourList(l2), FlashDef(l3). & & -> SLFlash(l4). & }} {{MAKESLICECONTROL& ( l1 n1 n2 l2 )& & <- Slice(l1), width(n1), height(n2). & & -> SliceControl_or_0.(l2). & }} {{MAKESLICEMASK& ( l1 == l2 )& & <- SliceControl(l1). & & -> BitMap_or_0.(l2). & }} {{NUMFILL& ( l1 == )& & & -> Stoage(l1). & }} {{REMCOPPERSTRIP& ( l1 l2 == l1 )& & <- Display(l1), Copperlist(l2). & & -> Display(l1). & }} {{REMOVEMOTOR& ( l1 == )& & <- MotorStruct(l1). & }} {{REMOVESLICECONTROL& ( l1 == )& & <- SliceControl(l1). & }} {{RIGHTNUM& ( l1 d1 n1 n2 n3 n4 n5 == )& & <- BitMap(l1), number(d1), field_length(n1), & x_pos(n2), y_pos(n3), background_pen(n4), & foreground_pen(n5). & }} {{SETSLICECOLOURS& ( l1 l2 n1 n2 == )& & <- Slice(l1), ColourTable(l2), start(n1), & count(n2). & }} {{SETFIELD1POS& ( n1 n2 l1 == )& & <- x_pos(n1), y_pos(n2), SliceControl(l1). & }} {{SETFIELD1SCROLL& ( n1 n2 l1 == )& & <- x_scroll(n1), y_scroll(n2), & SliceControl(l1). & }} {{SETFIELD2POS& ( n1 n2 l1 == )& & <- x_pos(n1), y_pos(n2), SliceControl(l1). & }} {{SETFIELD2SCROLL& ( n1 n2 l1 == )& & <- x_scroll(n1), y_scroll(n2), & SliceControl(l1). & }} {{SHOWDISPLAY& ( l1 == )& & <- Display(l1). & }} {{SORTSTRIPTABLE& ( l1 == l1 )& & <- Display(l1). & & -> Display(l1). & }} {{ADDAUTOHSPRITECTRL& ( l1 == )& & <- SpriteCtrl(l1). & }} {{CLEARAUTOHSPRITES& ( == )& & }} {{CLONESPRITE& ( l1 == l2 )& & <- SpriteControl(l1). & & -> SpriteControl(l2). & }} {{FREEAUTOHSPRITESET& ( l1 == )& & <- AutoHSpriteSet(l1). & }} {{FREECOLLHANDLER& ( l1 === )& & }} {{FREEHSPRITEBLOCK& ( l1 == )& & <- HSpriteData(l1). & }} {{FREESPRITE& ( l1 == )& & <- SpriteControl(l1). & }} {{FREESPRITESET& ( l1 == )& & <- SpriteSet(l1). & }} {{GETCOLLHANDLER& ( l1 == )& & <- CollHandler_or_0.(l1). & }} {{HSPRITE_AUTO_OFF& ( == )& & }} {{HSPRITE_AUTO_ON& ( == )& & }} {{HSPRITE_INSTALL& ( l1 n1 == )& & <- HSpriteData(l1), channel_no(n1). & }} {{HSPRITE_PLACE& ( n1 n2 n3 n4 == )& & <- attachflag(n1), xpos(n2), ypos(n3), & image#(n4), HSpriteData(l1). & }} {{HSPRITE_REMOVE& ( l1 == )& & <- HSpriteData(l1). & }} {{INITSPRITE& ( l1 l2 == )& & <- SliceControl(l1), SpriteCtrl(l2). & }} {{INITSPRITESET& ( l1 == l2 )& & <- SliceControl(l1), SpriteSet(l2). & }} {{INSTALLAUTOHSPRITE& ( l1 n1 == )& & <- SpriteCtrl(l1), slot_no(n1). & }} {{INSTALLHSPRITEANIM& ( l1 == )& & <- HSAnim(l1). & }} {{INSTALLSPRITE& ( l1 == )& & <- SpriteCtrl(l1). & }} {{INSTALLSPRITEANIM& ( l1 == )& & <- SpriteAnim(l1). & }} {{MAKEATTHSPRITEBLOCK_BMAP& ( n1 n2 n3 l1 n4 n5 n6 n7 == l2 l3 )& & <- image_id1(n1), image_id2(n2), & num_sprite_defs(n3), BMap(l1), x_start(n4), & y_start(n5), width(n6), height(n7). & & -> HSpriteData1_or_0.(l2), & HSpriteData2_or_0.(l3). & }} {{MAKEATTHSPRITEBLOCK_SCTL& ( n1 n2 n3 l1 == l2 l3 )& & <- image_id1(n1), image_id2(n2), & num_sprite_defs(n3), SpriteCtrl(l1). & & -> HSpriteData1_or_0.(l2), & HSpriteData2_or_0.(l3). & }} {{MAKEAUTOATTHSPRITESET& ( l1 n1 n2 n3 n4 n5 n6 n7 n8 == l2 l3 )& & <- BMap(l1), x_start(n1), y-start(n2), & width(n3), height(n4), hsprites#(n5), & image_id1(n6), image_id2(n7), & num_images(n8). & & -> AutoHSpriteSet1(l2), AutoHSpriteSet2(l3). & }} {{MAKEAUTOHSPRITEBLOCK& ( n1 n2 l1 == l2 )& & <- image_id(n1), images#(n2), & SpriteControl(l1). & & -> HSpriteData(l2). & }} {{MAKEAUTOHSPRITECTRLSET& ( l1 n1 == n2 )& & <- HSpriteData(l1), sprite#(n1). & & -> SpriteSet(l2). & }} {{MAKEAUTOHSPRITESET& ( l1 n1 n2 n3 n4 n5 n6 n7 == l2 )& & <- BMap(l1), x_start(n1), y-start(n2), & width(n3), height(n4), hsprites#(n5), & image_id1(n6), num_images(n7). & & -> AutoHSpriteSet(l2). & }} {{MAKEHSPRITEBLOCK& ( n1 n2 l1 == l2 )& & <- image_id(n1), images#(n2), HSImage(l1). & & -> HSpriteData(l2). & }} {{MAKEHSPRITEBLOCK_BMAP& ( n1 n2 l1 n3 n4 n5 n6 == l2 )& & <- image_id(n1), num_sprite_defs(n2), BMap(l1), & x_start(n3), y_start(n4), width(n5), & height(n6). & & -> HSpriteData_or_0.(l2). & }} {{MAKEHSPRITEBLOCK_SCTL& ( n1 n2 l1 == l2 )& & <- image_id(n1), num_sprite_defs(n2), & SpriteCtrl(l1). & & -> HSpriteData_or_0.(l2). & }} {{MAKEHAUTOATTSPRITEBLOCKS& ( n1 2 n3 l1 == l2 l3 )& & <- image_id1(n1), image_id2(n2), & num_sprite_defs(n3), SpriteCtrl(l1). & & -> HSpriteData1(l2), HSpriteData2(l3). & }} {{REMOVEAUTOHSPRITE& ( l1 == )& & <- SpriteCtrl(l1). & }} {{REMOVEHSPRITEANIM& ( l1 == )& & <- HSAnim(l1). & }} {{REMOVESPRITE& ( l1 == )& & <- SpriteCtrl(l1). & }} {{REMOVESPRITEANIM& ( l1 == )& & <- SpriteAnim(l1). & }} {{MAKESPRITESET& ( l1 n1 n2 n3 n4 n5 == l2 )& & <- BMap(l1), x(n1), y(n2), width(n3), & height(n4), spt#(n5). & & -> SpriteSet_or_0.(l2). & }} {{AUDIOLIB& ( n1 == )& & <- audiolib_number(n1). & }} {{DOSLIB& ( n1 == )& & <- doslib_number(n1). & }} {{GADGETLIB& ( n1 == )& & <- gadgetlib_number(n1). & }} {{GRAPHICSLIB& ( n1 == )& & <- graphicslib_number(n1). & }} {{#B& ( == )& & }} {{#D& ( == )& & }} {{#H& ( == )& & }} {{'& ( == pfa )& & <- (pfa). & }} {{@EXECUTE& ( a1 == )& & <- Storage(a1). & }} {{ABORT& ( == )& & }} {{BIN& ( == )& & }} {{CFA& ( pfa == cfa )& & <- Storage(pfa). & & -> Storage(cfa). & }} {{DECIMAL& ( == )& & }} {{ENCLOSE& ( l1 c1 == l1 n1 n2 n3 )& & <- Start(l1), character(c1). & & -> Start(l1). offset(n1), offset(n2), & offset(n3). & }} {{ERRHANDLER& ( == a1 )& & & -> Variable(a1). & }} {{ERROR"& ( flag == -- or flag == a1 n1 flag )& & <- 1_or_0(flag). & }} {{ERROR"FUNCTION& ( == a1 )& & & -> Variable(a1). & }} {{EXECUTE& ( cfa == )& & <- Location(cfa). & }} {{FIND& ( == a1 )& & & -> Location(a1). & }} {{FORTHERROR& ( == )& & }} {{HEX& ( == )& & }} {{INTERPRET& ( == )& & }} {{NFA& ( pfa == nfa )& & <- Parameter_Field_Address(pfa). & & -> Name_Field_dAddress(nfa). & }} {{OCTAL& ( == )& & }} {{PAD& ( == a1 )& & & -> Floating_Buffer(pad). & }} {{PADL& ( l1 == )& & & -> Floating_Buffer(padl). & }} {{PFA& ( nfa == pfa )& & <- Location(nfa). & & -> Location(pfa). & }} {{QUIT& ( == )& & }} {{RESETERROR"& ( == )& & }} {{SETERROR"& ( cfa == )& & <- CodeFieldAddress(cfa). & }} {{SYS!& ( == )& & }} {{SYS@& ( == )& & }} {{-ROLL& ( nx..n1 b == nx..n1..n2 )& & }} {{-ROT& ( n1 n2 n3 = n3 n1 n2 )& & }} {{.S& ( == )& & }} {{?DUP& ( n1 == n1 n1 or 0 )& & }} {{3DROP& ( n1 n2 n3 == )& & }} {{3DUP& ( n1 n2 n3 == n1 n2 n3 n1 n2 n3 )& & }} {{3NIP& ( n1 n2 n3 == n2 n3 )& & }} {{3PICK& ( n1 n2 n3 == n1 n2 n3 n1 )& & }} {{3TUCK& ( n1 n2 n3 == n3 n1 n2 n3 )& & }} {{D-ROT& ( d1 d2 d3 == d3 d1 d2 )& & }} {{D3NIP& ( d1 d2 d3 == d2 d3 )& & }} {{D3PICK& ( d1 d2 d3 == d1 d2 d3 d1 )& & }} {{D3TUCK& ( d1 d2 d3 == d3 d1 d2 d3 )& & }} {{DDDROP& ( d1 d2 == )& & }} {{DDDUP& ( d1 d2 == d1 d2 d1 d2)& & }} {{DDROP& ( d1 == )& & }} {{DDROPS& ( db..d1 b == )& & }} {{DDSWAP& ( d1 d2 d3 d4 == d3 d4 d1 d2 )& & }} {{DDUP& ( d1 == d1 d1 )& & }} {{DDUPS& ( d1 b == b+1 times d1 )& & }} {{DEPTH& ( nx..n1 == nx..n1 x )& & }} {{DFLAG& ( d1 == d1 flag )& & <- number(d1). & & -> number(d1). 0_or_1(flag). & }} {{DFLAG0=& ( d1 == d1 flag )& & <- number(d1). & & -> number(d1). 1_or_0(flag). & }} {{DNIP& ( d1 d2 == d2 )& & }} {{DOVER& ( d1 d2 == d1 d2 d1 )& & }} {{DPACK& ( dy..d1 dx b == dy..dx..d1 )& & }} {{DPICK& ( dx..db..d1 b == dx..d1 db )& & }} {{DROP& ( n1 == )& & }} {{DROPS& ( nb..n1 b == )& & }} {{DROT& ( d1 d2 d3 == d2 d3 d1 )& & }} {{DSWAP& ( d1 d2 == d2 d1 )& & }} {{DTRIP& ( d1 == d1 d1 d1 )& & }} {{DTUCK& ( d1 d2 == d2 d1 d2 )& & }} {{DUNDER+& ( d1 d2 dx == d1+dx d2 )& & }} {{DUNDER-& ( d1 d2 dx == d1-dx d2 )& & }} {{DUP& ( n1 == n1 n1 )& & }} {{DUPS& ( n1 b == b+1 times n1 )& & }} {{FLAG0=& ( n1 == n1 flag )& & <- number(n1). number(n1), & & -> 1_or_0(flag). & }} {{L>W& ( l1 == a1 )& & }} {{NIP& ( n1 n2 == n2 )& & }} {{OVER& ( n1 n2 == n1 n2 n1 )& & }} {{OVER=& ( n1 n2 == n1 flag )& & <- number(n1), number(n2), & & -> number(n1)d 1_or_0(flag). & }} {{PACK& ( ny..n1 x b == ny..nb..n1 nb is x )& & }} {{PICK& ( nx..n1 b == nx..n1 nb )& & }} {{ROLL& ( nx..n1 b == nx-1..n1 nb )& & }} {{ROT& ( n1 n2 n3 == n2 n3 n1 )& & }} {{S!& ( l1 == )& & }} {{S->D& ( n1 == d1 )& & }} {{S0& ( == l1 )& & }} {{SP!& ( nx..n1 == )& & }} {{SP@& ( == l1 )& & }} {{SWAP& ( n1 n2 == n2 n1 )& & }} {{TRIP& ( n1 == n1 n1 n1 )& & }} {{TUCK& ( n1 n2 == n2 n1 n2 )& & }} {{UNDER+& ( n1 n2 x == n1+x n2 )& & }} {{UNDER-& ( n1 n2 x == n1-x n2 )& & }} {{W>L& ( a1 == l1 )& & }} {{DOSBASE& ( == a1 )& & & -> Variable(a1). & }} {{EXECBASE& ( == a1 )& & & -> Variable(a1). & }} {{GFXBASE& ( == a1 )& & & -> Variable(a1). & }} {{INTUBASE& ( == a1 )& & & -> Variable(a1). & }} {{LAYERSBASE& ( == a1 )& & & -> Variable(a1). & }} {{AREG& ( n1 == a1 )& & <- dummy_areg_no(n1). & & -> Dummy_AReg(a1). & }} {{CLOSELIB& ( l1 == )& & & -> Library_Base(l1). & }} {{D0RESULT& ( == d1 )& & & -> value(d1). & }} {{DREG& ( n1 == a1 )& & <- dummy_dreg_no(n1). & & -> Dummy_DReg(a1). & }} {{LIBRARY& ( a1 n1 == )& & <- Lib_Base(a1). lib_offsett(n1). & }} {{LIBRARYL& ( d1 a1 == )& & <- lib_offset(d1). Lib_Base(a1). & }} {{OPENLIB& ( a1 n1 == l1 )& & <- PString(a1). revision_no(n1). & & -> Lib_Base_or_0.(l2). & }} {{REGS& ( == a1 )& & & -> Dummy_Regs(a1). & }} {{"DOS"& ( == a1 )& & & -> PString(a1). & }} {{"GFX"& ( == a1 )& & & -> PString(a1). & }} {{"INT"& ( == a1 )& & & -> PString(a1). & }} {{"LAY"& ( == a1 )& & & -> PString(a1). & }} {{ADDNODE& ( l1 l2 l3 == l4 )& & <- Field1(l1), Filed2(l2), List(l3). & & -> Node_or_0.(l4). & }} {{DATA!& ( l1 l2 n1 == )& & <- Data(l1), Node(l2), offset(n1). & }} {{DATA@& ( l1 n1 == l2 )& & <- Node(l1), offset(n1). & & -> Data(l2). & }} {{DATAFIELD& ( l1 n1 == l2 )& & <- Node(l1), offset(n1). & & -> Data(l2). & }} {{GETNODE& ( l1 n1 l2 n2 == l3 )& & <- Node(l1), offset(n1), List(l2), & constant(n2). & & -> Node_or_0.(l3). & }} {{MAKENODE& ( l1 n1 == l2 )& & <- List_Header(l1), size(n1), & & -> Node_or_0.(l2). & }} {{$GETNODE& ( l1 n1 l2 == l3 )& & <- String(l1). offset(n1), List(l2). & & -> Node_or_0.(l3). & }} {{NEWLIST& ( == l1 )& & & -> List_Header_or_0.(l1). & }} {{NEXNODE& ( l1 == l2 )& & <- Node(l1). & & -> Node_or_0.(l2). & }} {{REMNODE& ( l1 == )& & <- List(l1). & }} {{SUBLIST& ( l1 == l2 )& & <- Node(l1). & & -> SubList(l2). & }} {{ALLOCMEMORY& ( d1 d2 == l1 )& & <- amount(d1), mode(d2). & & -> Buffer_or_0.(l1). & }} {{FREEMEMORY& ( l1 == )& & <- Buffer(d1). & }} {{LISTMEM& ( == )& & }} {{!& ( n1 a1 == )& & <- number(n1), Location(a1). & }} {{!L& ( n1 l1 == )& & <- number(n1), Location(l1). & }} {{+!& ( n1 a1 == )& & <- number(n1), Storage(a1). & }} {{+!L& ( n1 l1 == )& & <- number(n1), Storage(l1). & }} {{-!& ( n1 a1 == )& & <- number(n1), Storage(a1). & }} {{-!L& ( n1 l1 == )& & <- number(n1), Storage(l1). & }} {{-1!& ( a1 == )& & <- Location(a1). & }} {{-1!L& ( l1 == )& & <- Location(l1). & }} {{0!& ( a1 == )& & <- Location(a1). & }} {{0!L& ( l1 == )& & <- Location(l1). & }} {{1!& ( a1 == )& & <- Location(a1). & }} {{1!L& ( l1 == )& & <- Location(l1). & }} {{2!& ( a1 == )& & <- Location(a1). & }} {{2!L& ( l1 == )& & <- Location(l1). & }} {{?& ( a1 n1 == )& & <- Location(a1). & }} {{<CMOVE& ( a1 a2 n1 == )& & <- Source(a1), Destination(a2), num_bytes(n1). & }} {{<CMOVEL& ( l1 l2 d1 == )& & <- Source(l1), Destination(l2), num_bytes(d1). & }} {{@& ( a1 == n1 )& & <- Location(a1). & & -> number(n1). & }} {{@L& ( l1 == n1 )& & <- Location(l1). & & -> number(n1). & }} {{BLANKS& ( a1 n1 == )& & <- Start(a1). num_bytes(n1). & }} {{BLANKSL& ( l1 d1 == )& & <- Start(l1). num_bytes(d1). & }} {{C!& ( b1 a1 == )& & <- number(b1), Location(a1). & }} {{C!L& ( c1 l1 == )& & <- number(b1), Location(l1). & }} {{C+!& ( b1 a1 == )& & <- number(b1). Storage(a1). & }} {{C+!L& ( b1 l1 == )& & <- number(b1). Storage(l1). & }} {{C-!& ( b1 a1 == )& & <- number(b1). Storage(a1). & }} {{C-!L& ( b1 l1 == )& & <- number(b1). Storage(l1). & }} {{C@& ( a1 == c1 )& & <- Location(a1). & & -> number(b1). & }} {{C@L& ( l1 == c1 )& & <- Location(l1). & & -> number(b1). & }} {{CDEC& ( a1 == )& & <- Storage(a1). & }} {{CDECL& ( l1 == )& & <- Storage(l1). & }} {{CINC& ( a1 == )& & <- Storage(a1). & }} {{CINCL& ( l1 == )& & <- Storage(l1). & }} {{CMOVE& ( a1 a2 n1 == )& & <- Source(a1), Destination(a2), num_bytes(n1). & }} {{CMOVEL& ( l1 l2 d1 == )& & <- Source(l1), Destination(l2), num_bytes(d1). & }} {{CYCLE& ( a1 n1 == )& & <- Variable(a1), limit(n1). & }} {{CYCLE+!& ( a1 n1 n2 == )& & <- Variable(a1), increment(n1), limit(n2). & }} {{CYCLEL& ( l1 n1 == )& & <- Variable(l1), limit(n1). & }} {{CYCLE+!L& ( l1 n1 n2 == )& & <- Variable(l1), increment(n1), limit(n2). & }} {{D!& ( d1 a1 == )& & <- number(d1), Storage(a1). & }} {{D!L& ( d1 l1 == )& & <- number(d1), Storage(l1). & }} {{D+!& ( d1 a1 == )& & <- number(d1), Storage(a1). & }} {{D+!L& ( d1 l1 == )& & <- number(d1), Storage(l1). & }} {{D-!& ( d1 a1 == )& & <- number(d1), Storage(a1). & }} {{D-!L& ( d1 l1 == )& & <- number(d1), Storage(l1). & }} {{D0!& ( a1 == )& & <- Location(a1). & }} {{D0!L& ( l1 == )& & <- Location(l1). & }} {{DCYCLE& ( a1 d1 == )& & <- VariableL(a1), limit(d1). & }} {{DCYCLE+!& ( a1 d1 d2 == )& & <- DVariable(a1), increment(d1), limit(d2). & }} {{DCYCLEL& ( l1 d1 == )& & <- DVariableL(l1), limit(d1). & }} {{DCYCLE+!L& ( l1 d1 d2 == )& & <- DVariableL(l1), increment(d1), limit(d2). & }} {{DDEC& ( a1 == )& & <- Storage(a1). & }} {{DDECL& ( l1 == )& & <- Storage(l1). & }} {{DEC& ( a1 == )& & <- Storage(a1). & }} {{DECL& ( l1 == )& & <- Storage(l1). & }} {{DINC& ( a1 == )& & <- Storage(a1). & }} {{DINCL& ( l1 == )& & <- Storage(l1). & }} {{DLIMIT& ( d1 d2 a1 == )& & }} {{DLIMIT+!& ( d1 d2 d3 a1 == )& & }} {{DLIMIT+!L& ( d1 d2 d3 l1 == )& & }} {{DMOVE& ( a1 a2 == )& & <- Source(a1), Destination(a2). & }} {{DMOVEL& ( l1 l2 == )& & <- Source(l1), Destination(l2). & }} {{D@& ( a1 == d1 )& & <- Location(a1). & & -> number(d1). & }} {{D@L& ( l1 == d1 )& & <- Location(l1). & & -> number(d1). & }} {{ERASE& ( a1 n1 == )& & <- Start(a1), num_bytes(n1). & }} {{ERASEL& ( l1 d1 == )& & <- Start(l1), num_bytes(d1). & }} {{EXCHANGE& ( a1 a2 n1 == )& & <- FirstArea(a1), SecondArea(a2), & num_bytes(n1). & }} {{EXCHANGEL& ( l1 l2 d1 == )& & <- FirstArea(l1), SecondArea(l2), & num_bytes(d1). & }} {{FILL& ( a1 n1 b1 == )& & <- Start(a1), num_bytes(n1), byte_value(b1). & }} {{FILLL& ( l1 d1 b1 == )& & <- Start(l1), num_bytes(d1), byte_value(b1). & }} {{INC& ( a1 == )& & <- Storage(a1). & }} {{INCL& ( l1 == )& & <- Storage(l1). & }} {{INDEX!L& ( n1 l1 d1 or n1 d1 l1 == -- )& & <- number(n1), Location(l1), offset(d1). & }} {{INDEX+!L& ( n1 l1 d1 or n1 d1 l1 == -- )& & <- number(n1), Location(l1), offset(d1). & }} {{INDEX-!L& ( n1 l1 d1 or n1 d1 l1 == -- )& & <- number(n1), Location(l1), offset(d1). & }} {{INDEX@L& ( l1 d1 or d1 l1 == n1 )& & <- Location(l1), offset(d1), & & -> number(n1). & }} {{INDEXC!L& ( b1 l1 d1 or b1 d1 l1 == -- )& & <- number(b1). Location(l1), offset(d1), & }} {{INDEXC+!L& ( b1 l1 d1 or b1 d1 l1 == )& & <- number(b1). Location(l1), offset(d1). & }} {{INDEXC-!L& ( b1 l1 d1 == )& & <- number(b1). Location(l1), offset(d1). & }} {{INDEXC@L& ( l1 d1 or d1 l1 == b1 )& & <- Location(l1), offset(d1), & & -> number(b1). & }} {{INDEXD!L& ( d1 l1 d2 or d1 d2 l1 == -- )& & <- number(d1), Location(l1), offset(d2). & }} {{INDEXD+!L& ( d1 l1 d2 or d1 d2 l1 == -- )& & <- number(d1), Location(l1), offset(d2). & }} {{INDEXD-!L& ( d1 l1 d2 or d1 d2 l1 == -- )& & <- number(d1), Location(l1), offset(d2). & }} {{INDEXD@L& ( l1 d1 or d1 l1 == d2 )& & <- Location(l1), offset(d1), & & -> number(d2). & }} {{LIMIT& ( n1 n2 a1 == )& & <- lo_limit(n1), hi_limit(n2), Variable(a1). & }} {{LIMIT+!& ( n1 n2 n3 a1 == )& & <- increment(n1), lo_limit(n2), hi_limit(n3), & Variable(a1). & }} {{LIMIT+!L& ( n1 n2 n3 l1 == )& & <- increment(n1), lo_limit(n2), hi_limit(n3), & VariableL(l1). & }} {{LONGOFFSET& ( l1 n1 == l2 )& & <- Location(l1), offset(n1), & & -> Location(l2). & }} {{MD!& ( n1 a1 == )& & <- number(n1), Location(a1). & }} {{MD!L& ( n1 l1 == )& & <- number(n1), Location(l1). & }} {{MOVE& ( a1 a2 == )& & <- Source(a1), Destination(a2). & }} {{MOVEL& ( l1 l2 == )& & <- Source(l1), Destination(l2). & }} {{SWITCH& ( a1 == )& & <- Storage(a1). & }} {{TOGGLE& ( a1 b1 == )& & <- Storage(a1), number(b1). & }} {{TOGGLEL& ( l1 b1 == )& & <- Storage(l1), number(b1). & }} {{TRANSFER& ( a1 a2 n1 == )& & <- Source(a1), Destination(a2), num_bytes(n1). & }} {{TRANSFERL& ( l1 l2 d1 == )& & <- Source(l1), Destination(l2), num_bytes(d1). & }} {{WORDOFFSET& ( l1 n1 == l2 )& & <- Location(l1), offset(n1), & & -> Location(l2). & }} {{ADDPORT& ( l1 == )& & <- Port(l1). & }} {{CREATEEXTIO& ( d1 == l1 l2 )& & <- block_size(d1). & & -> Port(l1), IOReq_block(l2). & }} {{CREATEMSG& ( d1 == l1 )& & <- size(d1). & & -> Message(l1). & }} {{CREATEPORT& ( == l1 )& & & -> Port(l1). & }} {{CREATESTDIO& ( == l1 l2 )& & & -> Port(l1). IOreq_block(l2). & }} {{FINDPORT& ( l1 == l2 )& & <- UString(l1). & & -> Port_or_0.(l2). & }} {{GETMSG& ( l1 == l2 )& & <- Port(l1). & & -> Message_or_0.(l2). & }} {{PUTMSG& ( l1 l2 == )& & <- Message(l1), Port(l2). & }} {{REMPORT& ( l1 == )& & <- Port(l1). & }} {{REPLYMSG& ( l1 == )& & <- Message(l1). & }} {{WAITPORT& ( l1 == l2 )& & <- Port(l1). & & -> Message(l2). & }} {{EVENTOFF& ( == )& & }} {{EVENTON& ( == )& & }} {{GADEVENT& ( == d1 )& & & -> event_class(d1). & }} {{GADGETNUMBER& ( == n1 )& & & -> gadget_number(n1). & }} {{GADGETOFF& ( == )& & }} {{GADGETON& ( == )& & }} {{JOY1CHANGE& ( == n1 )& & <- new_status_or_0(n1). & }} {{JOY1FIRE& ( == n1 )& & <- 1_or_0(n1). & }} {{JOY1LEFTRIGHT& ( == n1 )& & <- -1_or_0_or_1(n1). & }} {{JOY1STATE& ( == n1 )& & <- status(n1). & }} {{JOY1UPDOWN& ( == n1 )& & <- -1_or_0_or_1(n1). & }} {{MENULIMIT& ( n1 == )& & <- num_pixels(n1). & }} {{MENUNUMBER& ( == n1 )& & & -> menu_no(n1). & }} {{MENUOFF& ( == )& & }} {{MENUON& ( == )& & }} {{MOUSEBUTTON& ( == n1 )& & & -> im_code(n1). & }} {{MOUSEDCLICK& ( == n1 )& & & -> 1_or_0(n1). & }} {{MOUSEOFF& ( == )& & }} {{MOUSEON& ( == )& & }} {{MOUSEX& ( == n1 )& & & -> x-position(n1). & }} {{MOUSEY& ( == n1 )& & & -> y-position(n1). & }} {{POINTER& ( l1 n1 == )& & <- Window(l1). 1_or_0_-1(n1). & }} {{REPORTMOUSE& ( flag == )& & }} {{TICKACTION& ( == a1 )& & & -> DVariable(a1). & }} {{TICKFORTHACTION& ( n1 n2 == )& & <- rate(n1). switch(n2). & }} {{TICKS& ( n1 n2 == )& & <- rate(n1). switch(n2). & }} {{WINDOWCLOSE& ( == a1 )& & & -> Variable(a1). & }} {{#& ( d1 == d2 )& & <- number(d1). & & -> quotient(d2). & }} {{#>& ( d1 == a1 n1 )& & <- number(d1). & & -> UString(a1), count(n1). & }} {{#S& ( d1 == 0. )& & <- number(d1). & & -> null(0.). & }} {{.& ( n1 == )& & <- number(n1). & }} {{.R& ( n1 n2 == )& & <- number(n1), width(n2). & }} {{.R& ( n1 n2 == )& & <- number(n1), width(n2). & }} {{.R0& ( n1 n2 == )& & <- number(n1). width(n2). & }} {{<#& ( == )& & }} {{CONVERT& ( d1 a1 == d2 a2 )& & <- number(d1), PString(a1). & & -> number(d2), Location(a2). & }} {{CONVERTL& ( d1 l1 == d2 l2 )& & <- number(d1), PString(l1). & & -> number(d2), Location(l2). & }} {{D.& ( d1 == )& & <- number(d1). & }} {{D.L& ( d1 n1 == )& & <- number(d1), width(n1). & }} {{D.R& ( d1 n1 == )& & <- number(d1), field_width(n1). & }} {{D.R0& ( d1 n1 == )& & <- number(d1). width(n1). & }} {{DIGIT& ( c1 n1 == n2 1 or 0 )& & <- ascii_code(c1), base(n1). number(n2)g & true(1)} & }} {{HOLD& ( c1 == )& & <- ascii_code(c1). & }} {{NUMBER& ( a1 == d1 )& & <- PString(a1). & & -> number(d1). & }} {{NUMBERL& ( l1 == d1 )& & <- PString(l1). & & -> number(d1). & }} {{SIGN& ( n1 d1 == d1 )& & <- signed(n1), number(d1). & & -> number(d1). & }} {{U.& ( u1 == )& & <- number(u1). & }} {{U.R& ( u1 n1 == )& & <- number(u1), witdth(n1). & }} {{U.R0& ( u1 n1 == )& & <- number(u1), witdth(n1). & }} {{UD.& ( ud1 == )& & <- number(d1). & }} {{UD.R& ( ud1 n1 == )& & <- number(ud1), width(n1). & }} {{UD.R0& ( ud1 n1 == )& & <- number(ud1), witdth(n1). & }} {{UHEX.R& ( u1 == )& & <- number(u1). & }} {{UHEXD.R& ( ud1 == )& & <- number(ud1). & }} {{>R& ( n1 == )& & <- number(n1). & }} {{D>R& ( d1 == )& & <- number(d1). & }} {{DDUP>R& ( d1 == d1 )& & <- number(d1). & & -> number(d1). & }} {{DI& ( == d1 )& & & -> number(d1). & }} {{DI'& ( == d1 )& & & -> number(d1). & }} {{DJ& ( == d1 )& & & -> number(d1). & }} {{DJ'& ( == d1 )& & & -> number(d1). & }} {{DR>& ( d1 == )& & & -> number(d1). & }} {{DUP>R& ( n1 == n1 )& & <- number(n1). & & -> number(n1). & }} {{I& ( == n1 )& & & -> number(n1). & }} {{I'& ( == n1 )& & & -> number(n1). & }} {{J& ( == n1 )& & & -> number(n1). & }} {{J'& ( == n1 )& & & -> number(n1). & }} {{K& ( == n1 )& & & -> number(n1). & }} {{K'& ( == n1 )& & & -> number(n1). & }} {{R!& ( l1 == )& & <- Location(l1). & }} {{R>& ( == n1 )& & & -> number(n1). & }} {{RP@& ( == l1 )& & & -> Loccation(l1). & }} {{ACTIVATEWINDOW& ( l1 == )& & <- Window(l1). & }} {{CLOSEBMAP& ( l1 == )& & <- BitMap(l1). & }} {{CLOSEGAD& ( == )& & }} {{CLOSERASINFO& ( l1 - - - )& & <- RasInfo(l1). & }} {{CLOSERPORT& ( l1 == )& & <- RastPort(l1). & }} {{CLOSESCREEN& ( l1 == )& & <- Screen(l1). & }} {{CLOSEWINDOW& ( l1 == )& & <- Window(l1). & }} {{DEPTHGAD& ( == )& & }} {{DRAGGAD& ( == )& & }} {{FBMAP& ( == l1 )& & & -> HeliosBitMap(l1). & }} {{FCONSOLE& ( == l1 )& & & -> HeliosConsole(l1). & }} {{FORTHINWINDOW& ( == )& & }} {{FORTHOUTWINDOW& ( == )& & }} {{FRPORT& ( == l1 )& & & -> HeliosWinRPort(l1). & }} {{FSCREEN& ( == l1 )& & & -> HeliosScreen(l1). & }} {{FWINDOW& ( == l1)& & & -> HeliosWindow(l1). & }} {{GIMMEZZ& ( == )& & }} {{HFWINDOW& ( == )& & }} {{MAKEGFXRPORT& ( l1 l2 == )& & & -> Screen(l1), RPort(l2). & }} {{MAKEGFXWINDOW& ( l1 == )& & <- Window(l1). & }} {{MAKEINWINDOW& ( l1 == )& & <- Window(l1). & }} {{MAKEOUTWINDOW& ( l1 == )& & <- Window(l1). & }} {{MAKERPORT& ( l1 n1 == l2 )& & <- BitMap(l1). 1_or_0(n1). & & -> RastPort_or_0.(l2). & }} {{MOVEWINDOW& ( l1 n1 n2 == )& & <- Window(l1), hor_num_pixels(n1), & ver_num_pixels(n2). & }} {{OPENBMAP& ( n1 n2 n3 == l1 )& & <- bitmap_width(n1), bitmap_height(n2), & bitmap_depth(n3). & & -> BitMap_or_0.(l1). & }} {{OPENRASINFO& ( n1 n2 n3 == l1 )& & <- bitmap_width(n1), bitmap_height(n2), & bitmap_depth(n3). & & -> RastInfo_or_0.(l1). & }} {{OPENRPORT& ( n1 n2 n3 n4 == l1 )& & <- bitmap_width(n1), bitmap_height(n2), & depth(n3), area_rendering(n4). & & -> RastPort_or_0.(l1). & }} {{OPENSCREEN& ( a1 n1 n2 n3 n4 == l1 )& & <- PString(a1), width(n1), height(n2), & depth(n3). & & -> Screen_or_0.(l1). & }} {{OPENWINDOW& ( a1 n2 n3 n4 n5 n6 n7 == l1 )& & <- PString(a1), left_edge(n1), top_edge(n2), & width(n3), height(n4), depth(n5), & 1_or_0(n6). & & -> Window_or_0.(l1). & }} {{RESETCOLOURS& ( == )& & }} {{SCRCOLS& ( n1 n2 == )& & <- colour(n1), colour(n2). & }} {{SCREENSTRUCT& ( == a1 )& & & -> NewScreenStruct(a1). & }} {{SCREENTOBACK& ( l1 == )& & <- Screen(l1). & }} {{SCREENTOFRONT& ( l1 == )& & <- Screen(l1). & }} {{SCRMODE& ( n1 == )& & <- screenmode(n1). & }} {{SETSCREENTAGS& ( l1 == )& & <- ScreenTagList_or_0.(l1). & }} {{SETTITLES& ( l1 l2 l3 == )& & <- UString_or_0._or_-1(l1), & UString_or_0._or_-1(l2), Window(l3). & }} {{SETWINDOWTAGS& ( l1 - - - )& & <- WinTagList_or_0.(l1). & }} {{SIZEGAD& ( == )& & }} {{STDSCREEN& ( n1 == )& & <- resolution(n1). & }} {{STDWINDOW& ( == )& & }} {{WBENCHTOBACK& ( == )& & }} {{WBENCHTOFRONT& ( == )& & }} {{WINCOLS& ( == l1)& & <- colour(n1), colour(n2). & }} {{WINDOWSTRUCT& ( == a1 )& & & -> NewWindowStruct(a1). & }} {{WINDOWTOBACK& ( l1 == )& & <- Window(l1). & }} {{WINDOWTOFRONT& ( l1 == )& & <- Window(l1). & }} {{WINQUIET& ( == )& & }} {{!TEXTL& ( l1 == )& & <- PStringBuf(l1). & }} {{"& ( == a1 n1 )& & & -> UString(a1). count(n1). & }} {{$!>L& ( a1 l1 == )& & <- PString(a1), Destination(l1). & }} {{$!>W& ( l1 a1 == )& & <- PString(l1), Destination(a1). & }} {{$!L& ( l1 l2 == )& & <- PString(l1), Destination(l2). & }} {{$!W& ( a1 a2 == )& & <- PString(a1), Destination(a2). & }} {{$+0L& ( l1 == l1 )& & <- PString(l1). & & -> PString(l1). & }} {{$+0W& ( a1 == a1 )& & <- PString(a1). & & -> PString(a1). & }} {{$+L& ( l1 l2 l3 n1 == l3 )& & <- PString(l1), PString(l2), Buffer(l3), & num_chars(n1). & & -> Buffer_or_0.(l3). & }} {{$-TL& ( l1 == l1 )& & <- PString(l1). & & -> PString(l1). & }} {{$<=L& ( l1 l2 == flag )& & <- String(l1), String(l2). & & -> 1_or_0(flag). & }} {{$<0>L& ( l1 == l2 )& & <- String(l1). & & -> Location(l2). & }} {{$<<SPACEL& ( l1 == l2 )& & <- Start(l1). & & -> Location(l2). & }} {{$<FINDL& ( l1 c1 == l2 )& & <- Start(l1), ascii_code(c1). & & -> Location(l1). & }} {{$<SPACEL& ( l1 == l2 )& & <- Start(l1), & & -> Location(l2). & }} {{$>>SPACEL& ( l1 == l2 )& & <- Start(l1), & & -> Location(l2). & }} {{$>FINDL& ( l1 c1 == l2 )& & <- Start(l1), ascii_code(c1). & & -> Location(l2). & }} {{$>SPACEL& ( l1 == l2 )& & <- Start(l1). & & -> Location(l2). & }} {{$ADDL& ( l1 l2 n1 == l2 )& & <- PString(l1), PStringBuffer(l2), & num_chars(n1). & & -> PStringBuffer_or_0.(l2). & }} {{$ASCL& ( l1 n1 == c1 )& & <- PString(l1), offset(n1). & & -> ascii_code(c1). & }} {{$BL+L& ( l1 == l1 )& & <- PString(l1). & }} {{$C>UL& ( l1 == padl )& & <- PString(l1). UString(padl). & }} {{$CHRL& ( c1 == padl )& & <- ascii_code(c1). & & -> PString(padl). & }} {{$CLEARL& ( l1 == )& & <- PString(l1). & }} {{$COMPL& ( l1 l2 == flag )& & <- PString(l1), PString(l2). & & -> 1_or_0(flag). & }} {{$CONCL& ( l1 l2 == )& & <- PString(l1), PString(l2). & }} {{$CONSTANT& ( == )& & }} {{$CONSTANTL& ( == )& & }} {{$CONTL& ( l1 l2 == l3 )& & <- PString(l1), PString(l2). & & -> Location_or_0.(l3). & }} {{$COPYL& ( 11 l2 == )& & <- String(l1), Destination(l2). & }} {{$DELNEXTL& ( == padl )& & & -> PString(padl). & }} {{$ENDL& ( l1 == l2 )& & <- PString(l1). & & -> Location(l2). & }} {{$FIRSTL& ( l1 == l2 )& & <- Start(l1). & & -> Location(l2). & }} {{$FORCECL& ( l1 == )& & <- UString(l1). & }} {{$FORCEUL& ( l1 == )& & <- PString(l1). & }} {{$LASTL& ( l1 == l2 )& & <- Start(l1). & & -> Location(l2). & }} {{$LL& ( l1 n1 == padl )& & <- PString(l1), num_chars(n1). & & -> PString(padl). & }} {{$ML& ( l1 n1 n2 == padl )& & <- PString(l1), offset(n1), num_chars(n2). & & -> PString(padl). & }} {{$MAKEL& ( l1 n1 == padl )& & <- UString(l1), num_chars(n1). & & -> PString(padl). & }} {{$NEXTL& ( == padl )& & <- PString(padl). & }} {{$PUTL& ( l1 l2 == )& & <- PString(l1), UStringBuf(l2). & }} {{$PUTW& ( a1 a2 == )& & <- PString(a1), UStringBuf(a2). & }} {{$RL& ( l1 n1 == padl )& & <- PString(l1), num_chars(n1). & & -> PString(padl). & }} {{$SEARCHL& ( l1 d1 l2 == l3 )& & <- Start(l1), num_bytes(d1), PString(l2). & & -> Location_or_0.(l3). & }} {{$SEGSIZEL& ( l1 == d1 )& & <- UString(l1). & & -> length(d1). & }} {{$SEGTYPEL& ( l1 == l1 )& & <- String(l1). & & -> String(l1). & }} {{$SIZEL& ( l1 == d1 )& & <- UString(l1). & & -> length(d1). & }} {{$SORTL& ( l1 l2 d1 == n1 n2 )& & <- UString(l1), UString(l2), 0._or_1.(d1). & & -> 0_or_1(n1). 0_or_1(n2). & }} {{$SPACE& ( a1 == n1 )& & <- PString(a1). & & -> num_chars(n1). & }} {{$SPACEL& ( l1 == d1 )& & <- PString(l1). & & -> num_chars(d1). & }} {{$TRANSL& ( l1 l2 == )& & <- UString(l1), PStringBuffer(l2). & }} {{$TRIML& ( l1 == l1 )& & <- UString(l1), & & -> UString(l1). & }} {{$STRIPL& ( l1 == l1 )& & <- PString(l1). & }} {{$TRUNCCL& ( l1 n1 == )& & <- PString(l1), num_chars(n1). & }} {{$TRUNCUL& ( l1 n1 == )& & <- UString(l1), num_chars(n1). & }} {{$TYPE& ( a1 == )& & <- UString(a1). & }} {{$TYPEL& ( l1 == )& & <- UString(l1). & }} {{$U>CL& ( l1 == padl )& & <- UString(l1). & & -> PString(padl). & }} {{$VARIABLE& ( n1 == )& & <- num_chars(n1). & }} {{$VARIABLEL& ( n1 == )& & <- num_chars(n1). & }} {{$X& ( a1 a2 == )& & <- PString(a1). PString(a2). & }} {{$XL& ( l1 l2 == )& & <- PString(l1). PString(l2). & }} {{(MATCH)& ( a1 a2 n1 == flag )& & <- PString(a1), num_chars(n1), PString(a2). & & -> 1_or_0(flag). & }} {{-TEXT& ( a1 n1 a2 == n2 )& & <- String(a1), num_chars(n1), String(a2), & & -> number(n2). & }} {{-TRAILING& ( a1 n1 == a1 n2 )& & <- UString(a1), num_chars(n1). & & -> UString(a1), num_chars(n2). & }} {{-TRAILINGL& ( l1 d1 == l1 d2 )& & <- UString(l1), num_chars(d1). & & -> UString(l1), num_chars(d2). & }} {{>LOWERCASEL& ( l1 d1 == )& & <- UString(l1), num_chars(n1). & }} {{>UPPERCASEL& ( l1 d1 == )& & <- UString(l1), num_chars(n1). & }} {{ASCII& ( == c1 )& & & -> ascii_code(c1). & }} {{CASE& ( == a1 )& & & -> Variable(a1). & }} {{CLEARHISTORY& ( == )& & }} {{COUNT& ( a1 == a2 n1 )& & <- PString(a1). & & -> UString(a2), num_chars(n1). & }} {{COUNTL& ( l1 == l2 d1 )& & <- PString(l1). & & -> UString(l2), num_chars(d1). & }} {{DEL!& ( c1 == )& & <- ascii_code(c1). & }} {{DEL@& ( == c1 )& & & -> ascii_code(c1). & }} {{DELWORD& ( == a1 )& & & -> Here(a1). & }} {{DELWORDL& ( == l1 )& & & -> Here(l1). & }} {{GETWORDL& ( l1 c1 == padl )& & <- Start(l1), ascii_code(c1). & & -> PString(padl). & }} {{HISTORY& ( flag == )& & <- 1_or_0(flag). & }} {{QUERY& ( == )& & }} {{WORD& ( c1 == a1 )& & <- ascii_code(c1). & & -> Here(a1). & }} {{WORDL& ( c1 == l1 )& & <- ascii_code(c1). & & -> Here(l1). & }} {{+LOOP& ( n1 == )& & <- index_increment(n1). & }} {{/LOOP& ( n1 == )& & <- index_increment(n1). & }} {{AGAIN& ( == )& & }} {{BEGIN& ( == )& & }} {{DO& ( n1 n2 == )& & <- loop_limit(n1), loop_index(n2). & }} {{ELSE& ( == )& & }} {{IF& ( flag == )& & <- not0_or_0(flag). & }} {{LEAP& ( == )& & }} {{LEAVE& ( == )& & }} {{LOOP& ( == )& & }} {{REPEAT& ( == )& & }} {{THEN& ( == )& & }} {{UNTIL& ( flag == )& & <- 0_or_not0(flag). & }} {{WHILE& ( flag == )& & <- 0_or_not0(flag). & }} {{-1& ( == n1 )& & & -> numeric_value(n1). & }} {{0& ( == n1 )& & & -> numeric_value(n1). & }} {{0.& ( == d1 )& & & -> numeric_value(d1). & }} {{1& ( == n1 )& & & -> numeric_value(n1). & }} {{2& ( == n1 )& & & -> numeric_value(n1). & }} {{3& ( == n1 )& & & -> numeric_value(n1). & }} {{4& ( == n1 )& & & -> numeric_value(n1). & }} {{BL& ( == n1 )& & & -> numeric_value(n1). & }} {{COMPLEMENT& ( == d1 )& & & -> complement_drawmode(d1). & }} {{JAM1& ( == d1 )& & & -> jam1_drawmode(d1). & }} {{JAM2& ( == d1 )& & & -> jam2_drawmode(d1). & }} {{INVERSVID& ( == d1 )& & & -> inversvideo_drawmode(d1). & }} {{MEMPUBLIC& ( == d1 )& & & -> public_requirement(d1). & }} {{MEMCHIP& ( == d1 )& & & -> chip_requirement(d1). & }} {{MEMCLEAR& ( == d1 )& & & -> clear_requirement(d1). & }} {{MEMFAST& ( == d1 )& & & -> fast_requirement(d1). & }} {{MEMLARGEST& ( == d1 )& & & -> largest_requirement(d1). & }} {{NEW& ( == d1 )& & & -> new_filemode(d1)N & }} {{OLD& ( == d1 )& & & -> old_filemode(d1). & }} {{OFFSET_BEGINNING& ( == d1 )& & & -> beginning_position_mode(d1). & }} {{OFFSET_CURRENT& ( == d1 )& & & -> current_position_mode(d1). & }} {{OFFSET_END& ( == d1 )& & & -> end_position_mode(d1). & }} {{READWRITE& ( == d1 )& & & -> readwrite_mode(d1)? & }} {{ALTOUT& ( == a1 )& & & -> DVariable(a1). & }} {{ARGLENGTH& ( == a1 )& & & -> Variable(a1). & }} {{ARGS& ( == a1 )& & & -> DVariable(a1). & }} {{CAPS& ( == a1 )& & & -> Variable(a1). & }} {{DOSERROR& ( == a1 )& & & -> DVariable(a1). & }} {{ERROR& ( == a1 )& & & -> Variable(a1). & }} {{THISOUT& ( == a1 )& & & -> DVariable(a1). & }} {{THISTASK& ( == a1 )& & & -> DVariable(a1). & }} {{>IN& ( == l1 )& & & -> DVariableL(l1). & }} {{BASE& ( == l1 )& & & -> VariableL(l1). & }} {{BUF& ( == l1 )& & & -> 16-bit_VariableL(l1). & }} {{CURCOL& ( == l1 )& & & -> VariableL(l1). & }} {{CURROW& ( == l1 )& & & -> VariableL(l1). & }} {{DP& ( == l1 )& & & -> VariableL(l1). & }} {{DPL& ( == l1 )& & & -> VariableL(l1). & }} {{HLD& ( == l1 )& & & -> VariableL(l1). & }} {{OUT& ( == l1 )& & & -> DVariableL(l1). & }} {{SPAN& ( == l1 )& & & -> VariableL(l1). & }} {{SP0& ( == l1 )& & & -> DVariableL(l1). & }} {{STATE& ( == l1 )& & & -> VariableL(l1). & }} {{TIB& ( == l1 )& & & -> DVariableL(l1). & }} {{#IN& ( == d1 )& & & -> entered_number(d1). & }} {{#INBUFF& ( == l1 )& & & -> Buffer(l1). & }} {{#INFLAG& ( == a1 )& & & -> Variable(a1). & }} {{#INSPAN& ( == a1 )& & & -> Variable(a1). & }} {{#REDO& ( == d1 )& & & -> input_number(d1). & }} {{$.& ( a1 == )& & <- PString(a1). & }} {{$.L& ( l1 == )& & <- PString(l1). & }} {{$?L& ( n1 == padl )& & <- maxnumchars(n1). & & -> PString(padl). & }} {{$?!L& ( l1 n1 == )& & <- PStringBuf(l1), num_chars(n1). & }} {{$I?!L& ( l1 n1 == )& & <- PStringBuf(l1), mnum_chars(n1). & }} {{$I?L& ( n1 == padl )& & <- num_chars(n1). & & -> PString(padl). & }} {{$KEYL& ( == padl )& & & -> PString(padl). & }} {{(.& ( == )& & }} {{."& ( == )& & }} {{.$& ( == )& & }} {{.|& ( == )& & }} {{?KEY& ( c1 == flag )& & <- ascii_code(c1). & & -> 1_or_0(flag). & }} {{?TERMFLAG& ( == l1 )& & & -> VariableL(l1). & }} {{?TERMINAL& ( == c1 )& & & -> ascii_code_or_0(c1). & }} {{AMIGAKEY& ( == n1 )& & & -> 0_or_1_or_2(n1). & }} {{BOLDOFF& ( == )& & }} {{BOLDON& ( == )& & }} {{BPENSET& ( n1 == )& & <- colour_no(n1). & }} {{CONHOFFSET& ( == l1 )& & & -> VariableL(l1). & }} {{CONHSCALE& ( == l1 )& & & -> VariableL(l1). & }} {{CONVOFFSET& ( == l1 )& & & -> VariableL(l1). & }} {{CONVSCALE& ( == l1 )& & & -> VariableL(l1). & }} {{CR& ( == )& & }} {{CURBK& ( n1 == )& & <- num_places(n1). & }} {{CURDN& ( n1 == )& & <- num_places(n1). & }} {{CURFW& ( n1 == )& & <- num_places(n1). & }} {{CURGET& ( == n1 n2 )& & & -> column(n1), row(n2). & }} {{CURHM& ( == )& & }} {{CURNL& ( n1 == )& & <- num_moves(n1). & }} {{CUROFF& ( == )& & }} {{CURON& ( == )& & }} {{CURPL& ( n1 == )& & <- num_moves(n1). & }} {{CURPOS& ( n1 n2 == )& & <- column(n1), row(n2). & }} {{CURPUT& ( n1 n2 == )& & <- column(n1), row(n2). & }} {{CURREAD& ( == n1 n2 )& & & -> column(n1), row(n2). & }} {{CURSAVE& ( == )& & }} {{CURSET& ( == )& & }} {{CURSTAT& ( == flag )& & & -> 1_or_0(flag). & }} {{CURUP& ( n1 == )& & <- num_places(n1). & }} {{DEL& ( n1 == )& & <- num_chars(n1). & }} {{EDWINDOW& ( == a1 )& & & -> DVariable(a1). & }} {{EED& ( == )& & }} {{EEL& ( == )& & }} {{EMIT& ( c1 == )& & <- ascii_code(c1). & }} {{EXPECTL& ( l1 n1 == )& & <- UStringBuffer(l1). num_chars(n1). & }} {{FCONORIGIN& ( == )& & }} {{FILLCHAR& ( a1 == )& & & -> Variable(a1). & }} {{FPENSET& ( n1 == )& & <- colour_no(n1). & }} {{FSTATUS& ( == )& & }} {{GETCONORIGIN& ( == n1 n2 n3 n4 )& & & -> hor_offset(n1), ver_offset(n2), & hor_muliplier(n3), ver_muliplier(n4). & }} {{HOP& ( == a1 )& & & -> Variable(a1). & }} {{HOPCOL& ( == a1 )& & & -> Variable(a1). & }} {{HOPROW& ( == a1 )& & & -> Variable(a1). & }} {{HOPSTART& ( == a1 )& & & -> DVariable(a1). & }} {{INITFSTREAMS& ( == )& & }} {{INITSTREAM& ( n1 == )& & }} {{INS& ( n1 == )& & & -> num_chars(n1). & }} {{INSPECTL& ( l1 n1 == )& & <- UString(l1), num_chars(n1). & }} {{INVOFF& ( == )& & }} {{INVON& ( == )& & }} {{ITALOFF& ( == )& & }} {{ITALON& ( == )& & }} {{KEY& ( == c1 )& & & -> ascii_code(c1). & }} {{KEYCODE& ( == c1 )& & & -> key_code(c1). & }} {{KEYFILTER& ( == a1 )& & & -> Variable(a1). & }} {{KEYLCASE& ( c1 == c2 )& & <- ascii_code(c1). & & -> ascii_code(c2). & }} {{KEYS& ( == )& & }} {{KEYUCASE& ( c1 == c2 )& & <- ascii_code(c1). & & -> ascii_code(c2). & }} {{LEFTMOUSE& ( == flag )& & & -> 1_or_0(flag). & }} {{LNDEL& ( == )& & }} {{LNINS& ( == )& & }} {{MAXCOL& ( == a1 )& & & -> Variable(a1). & }} {{MAXROW& ( == a1 )& & & -> Variable(a1). & }} {{OUTOFF& ( == )& & }} {{OUTON& ( == )& & }} {{PLAINON& ( == )& & }} {{QUALIFIER& ( == a1 )& & & -> Variable(a1). & }} {{RAWKEY& ( == a1 )& & & -> Variable(a1). & }} {{RIGHTMOUSE& ( == flag )& & & -> 1_or_0(flag). & }} {{SCRCLR& ( == )& & }} {{SCRDN& ( n1 == )& & <- num_lines(n1). & }} {{SCRUP& ( n1 == )& & <- numlines(n1). & }} {{SCRWIN& ( n1 n2 n3 n4 )& & <- column(n1), row(n2), width(n3), height(n4). & }} {{SETCONORIGIN& ( n1 n2 n3 n4 == )& & <- hor_offset(n1), ver_offset(n2), & hor_muliplier(n3), ver_muliplier(n4). & }} {{SETGR& ( n1 == )& & <- highlight_code(n1). & }} {{SHIFTOFF& ( == )& & }} {{SHIFTON& ( == )& & }} {{SPACE& ( == )& & }} {{SPACES& ( n1 == )& & <- num_spaces(n1). & }} {{STREAM& ( n1 == )& & <- stream_no(n1). & }} {{STREAMNO& ( == n1 )& & & -> stream_no(n1). & }} {{TYPE& ( a1 n1 == )& & <- Start(a1). num_chars(n1). & }} {{TYPEL& ( l1 d1 == )& & <- Start(l1). num_chars(d1). & }} {{ULINEOFF& ( == )& & }} {{ULINEON& ( == )& & }} {{VHOP& ( == a1 )& & & -> Variable(a1). & }} {{WBOUNDS& ( == )& & }} {{$FINDEDIT& ( n1 == )& & <- editor_no(n1). & }} {{(EDIT)& ( n1 l1 == )& & <- editor_no(n1), PString(l1). & }} {{ASSEMBLER& ( == )& & }} {{BELL& ( == )& & }} {{CVLIST& ( == )& & }} {{DELAY& ( n1 == )& & <- numticks(n1). & }} {{DISPLAY& ( flag == )& & <- 1_or_0(flag). & }} {{DUMP& ( a1 n1 == )& & <- Start(a1), num_bytes(n1). & }} {{DUMPL& ( l1 n1 == )& & <- Start(l1), num_bytes(n1). & }} {{EDIT& ( n1 == )& & <- editor_no(n1). & }} {{ENDFORTH& ( == )& & }} {{FORBID& ( == )& & }} {{INTVERSION& ( == n1 )& & & -> version_no(n1). & }} {{NOOP& ( == )& & }} {{PAUSE& ( c1 == flag )& & <- byte(c1). & & -> 1_or_0(flag). & }} {{PERMIT& ( == )& & }} {{PRTOFF& ( == )& & }} {{PRTON& ( == )& & }} {{RND& ( n1 == n2 )& & <- limit(n1). & & -> random_number(n2). & }} {{RNDX& ( n1 == n2 )& & <- limit(n1). & & -> random_number(n2). & }} {{TIME& ( == a1 n1 )& & & -> UString(a1), count(n1). & }} {{TIMEOFF& ( == )& & }} {{TIMEON& ( == )& & }} {{UVLIST& ( == )& & }} {{VLIST& ( == )& & }} {{WAITSPACE& ( == )& & }} {{WAITYORN& ( == flag )& & & -> 1_or_0(flag). & }} {{WORD!& ( a1 == )& & <- Storage(a1). & }} {{?,& ( ? == ? )& & }} {{?C,& ( ? == ? )& & }} {{?CONDITIONS& ( ? == ? )& & }} {{?D,& ( ? == ? )& & }} {{?XCODE& ( ? == ? )& & }} {{?XPTR& ( ? == ? )& & }} {{CLEARCOLLISIONS& ( ? == ? )& & }} {{CLEARHSPRITEANIMS& ( ? == ? )& & }} {{CLEARHSPRITES& ( ? == ? )& & }} {{CLEARMOTORS& ( ? == ? )& & }} {{CLEARSLICECONTROLS& ( ? == ? )& & }} {{CLEARSPRITEANIMS& ( ? == ? )& & }} {{CLEARSPRITES& ( ? == ? )& & }} {{CLIST& ( ? == ? )& & }} {{CLISTDUMP& ( ? == ? )& & }} {{COPYATTHSPRITE& ( ? == ? )& & }} {{COPYBYTETABLE& ( ? == ? )& & }} {{COPYHSPRITE& ( ? == ? )& & }} {{COPYLONGTABLE& ( ? == ? )& & }} {{COPYWORDTABLE& ( ? == ? )& & }} {{DCLEAR@& ( ? == ? )& & }} {{DIRECTION& ( ? == ? )& & }} {{EDITORHFLIB& ( ? == ? )& & }} {{FLASHSPRITE& ( ? == ? )& & }} {{FLASHSPRITEANIM& ( ? == ? )& & }} {{FRAMECOUNT!& ( ? == ? )& & }} {{FRAMECOUNT@& ( ? == ? )& & }} {{FREEAUTOHSPRITEBLOCK& ( ? == ? )& & }} {{FREECOLORMAP& ( l1 == )& & <- ColorMap(l1). & }} {{FREEIMAGESET& ( ? == ? )& & }} {{GAMELIB& ( ? == ? )& & }} {{HSPRITE_CLEAR& ( ? == ? )& & }} {{JSRFORTH& ( ? == ? )& & }} {{MAKECOLORMAP& ( l1 == l2 )& & <- ColorTable(l1), num_colours(n1). & & -> ColorMap(l2). & }} {{MAKEIMAGESET& ( ? == ? )& & }} {{REFRESHWINDOW& ( ? == ? )& & }} {{REMOVEAUTOHSPRITECTRL& ( ? == ? )& & }} {{REQBASE& ( ? == ? )& & }} {{SETDCLICK& ( ? == ? )& & }} {{SETXCODE& ( ? == ? )& & }} {{SHOWTIMING& ( ? == ? )& & }} {{SYSHFLAG& ( ? == ? )& & }} {{UPDATESPRITEANIM& ( ? == ? )& & }} {{V>L& ( ? == ? )& & }} {{V>W& ( ? == ? )& & }} {{VBCOUNT!& ( ? == ? )& & }} {{VBCOUNT@& ( ? == ? )& & }} {{WAITBEAM& ( ? == ? )& & }} {{WAITFRAME& ( ? == ? )& & }} {{X,& ( ? == ? )& & }} {{X>L& ( ? == ? )& & }} {{XBUFFER& ( ? == ? )& & }} {{XC,& ( ? == ? )& & }} {{XCREATEL& ( ? == ? )& & }} {{XD,& ( ? == ? )& & }} {{XDP& ( ? == ? )& & }} {{XLIT$& ( ? == ? )& & }} {{XOFFSET& ( ? == ? )& & }} {{XPTR& ( ? == ? )& & }} {{ASyncStatus& ( 19 == flag )& & <- audiolib_number(19). & & -> 1_or_0(flag). & }} {{Audiobase& ( 0 == l1 )& & <- audiolib_number(0). & & -> AudioBaseL(l1). & }} {{AudioStatus& ( 7 == )& & <- audiolib_number(7). & }} {{CloseAudio& ( 4 == )& & <- audiolib_number(4). & }} {{CloseMod& ( 2 == )& & <- audiolib_number(2). & }} {{End_ASync& ( 21 == )& & <- audiolib_number(21). & }} {{End_Repeat& ( n1 13 == )& & <- audiochannel_no(n1), audiolib_number(13). & }} {{Filter& ( flag 14 == )& & <- 1_or_0(flag), audiolib_number(14). & }} {{GetAudio& ( 18 == l1 )& & <- audiolib_number(18). & & -> AudioLibDriver(l1). & }} {{ModChannel& ( flag 12 == )& & <- 1_or_0(flag), audiolib_number(12). & }} {{ModStart& ( 5 == )& & <- audiolib_number(5). & }} {{ModStop& ( 6 == )& & <- audiolib_number(6). & }} {{OpenAudio& ( 3 == flag )& & <- audiolib_number(3). & & -> 0_or_1(flag)d & }} {{OpenMod& ( 1 == )& & <- audiolib_number(1). & }} {{PerVol& ( n1 n2 n3 15 == )& & <- period(n1), volume(n2), audiochannel_no(n3), & audiolib_number(15). & }} {{PlaySync& ( n1 n2 8 == )& & <- soundsample_no(n1), audiochannel_no(n2), & audiolib_number(8). & }} {{Play_End& ( n1 11 == )& & <- audiochannel_no_or_-1(n1), & audiolib_number(10). & }} {{Play_Once_ASync& ( n1 n2 10 == )& & <- sound_no(n1), audiochannel_no(n2), & audiolib_number(10). & }} {{Play_Rpt_ASync& ( n1 n2 9 == )& & <- soundsample_no(n1), audiochannel_no(n2), & audiolib_number(9). & }} {{PSamp_Once_ASync& ( l1 n1 n2 n3 23 == )& & <- Start(l1), length(n1), rptlen(n2), & audiochannel_no(n3), audiolib_number(23). & }} {{PSamp_Rpt_ASync& ( l1 n1 n2 n3 20 == )& & <- Start(l1), length(n1), rptlen(n2), & audiochannel_no(n3), audiolib_number(20). & }} {{PSamp_Sync& ( l1 n1 n2 n3 20 == flag )& & <- Start(l1), length(n1), rptlen(n2), & audiochannel_no(n3), audiolib_number(20). & }} {{SetPerVol& ( n1 n2 17 == )& & <- period(n1), volume(n2), audiolib_number(17). & }} {{Set_ASync& ( 16 == )& & <- audiolib_number(16). & }} {{FadeColours& ( l1 l2 n1 flag 12 == )& & <- ViewPort(l1), ColourTab(l2), delay(n1), & 1_or_0(flag), doslib_number(12). & }} {{FindChunk& ( l1 l2 8 == l3 )& & <- IffFileBuffer(l1), NameAddr(l2), & doslib_number(8). & & -> ChunkStart(l3). & }} {{GetBMHeader& ( l1 l2 6 == l3 )& & <- IffFileBuffer(l1), doslib_number(6). & & -> BMHeader(l3). & }} {{GetColourTable& ( l1 l2 7 == l3 )& & <- IffFileBuffer(l1), ColourTableBuffer(l2), & doslib_number(7). & & -> count( ). & }} {{GetPic& ( l1 n1 3 == l2 l3 l4 n2 n3 )& & <- PString(l1), control_bits(n1), & doslib_number(3). & & -> BMHeader(l2), ColourMap(l3), RPort/Bmap(l4), & modes(n2), control_bits(n3). & }} {{GetPP& ( l1 d1 1 == l2 )& & <- PString(l1), memtype(d1), doslib_number(1). & & -> Buffer_or_0.(l3). & }} {{GetScreenSize& ( l1 l2 9 == l3 )& & <- BMHeader(l1), modes(n1), doshflib_number(9). & & -> width(n2), height(n3), viewmodes(n4). & }} {{GetViewMode& ( l1 5 == n1 )& & <- IffFileBuffer(l1), dislib_number(5). & & -> viewmodes(n4). & }} {{GuessViewModes& ( n1 n2 n3 11 == n4 )& & <- width(n1), height(n2), depth(n3), & dosLib_number(11). & & -> viewmodes(n4). & }} {{LoadPic& ( l1 l2 l3 l4 n1 2 == n2 n3 )& & <- RPort/Bmap(l1), ColourTable(l2), & BMHeader(l3), PString(l4), control_bits(n1), & doslib_number(2). & & -> viewmodes(n2), control_bits(n3). & }} {{LoadPP& ( l1 l2 0 == l3 )& & <- PString(l1), Buffer(l2), doslib_number(0). & & -> Buffer_or_0.(l3). & }} {{ScrollScreen& ( l1 n1 n2 10 == )& & <- Screen(l1), x_scroll(n1), y_scroll(n2), & doshflib_number(10). & }} {{SetColours& ( l1 l2 13 == )& & <- ViewPort(l1), ColourTab(l2), & doslib_number(13). & }} {{UnpackPic& ( l1 l2 l3 l4 4 == n1 n2 n3 )& & <- RPort/Bmap(l1), ColourTab(l2), BMHeader(l3), & LoadedFileBuffer(l4), control_bits(n1). & doslib_number(4). & & -> modes(n2), flag(n3). & }} {{AddGadget& ( n1 l1 n2 2 == )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(2). & }} {{AddGadgetNoRef& ( n1 l1 41 == )& & <- gadget_no(n1), GagdetList(l1), & gadgetlib_number(41). & }} {{AllOff& ( l1 7 == )& & <- (l1), (7). & }} {{AllOn& ( l1 8 == )& & <- (l1), (8). & }} {{ClearDummy& ( 34 == )& & <- gadgetlib_number(34). & }} {{DrawDummy& ( 35 == )& & <- gadgetlib_number(35). & }} {{GadgAct& ( l1 28 == )& & <- GadgetList(l1), gadgetlib_number(28). & }} {{Gadget& ( n1 l1 1 == l2 )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(1). & & -> GadgetStructure(l2). & }} {{Gadgets& ( l1 n1 l2 0 == l3 )& & <- Window(l1), num_gads(n1), OldGadgetList(l2), & gadgetlib_number(0). & & -> GadList_or_0.(l3). & }} {{GetPropPot& ( n1 l1 24 == n2 )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(24). & & -> prop_pot_value(n2). & }} {{GetString& ( n1 l1 26 == l2 )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(26). & & -> String(l2). & }} {{GKey& ( n1 l1 6 == l2 )& & <- gadget_no(n1), GadgetList(l1), & gagdetlib_number(6). & & -> GadgetKey(l2). & }} {{GmcVector& ( n1 l1 43 == l2 )& & <- gadget_no(n1), GadgList(l1), & gadgetlib_number(43). & & -> GmcVectPtr(l2). & }} {{GVector& ( n1 l1 5 == l2 )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(5). & & -> GadgetVector(l2). & }} {{InitGads& ( l1 9 == )& & <- GadgetList(l1), gadgetlib_number(9). & }} {{InputAct& ( l1 n1 31 == )& & <- (l1), (n1), (31). & }} {{InstallGList& ( l1 l2 12 == )& & <- Window(l1), GadgetList(l2), & gadgetlib_number(12). & }} {{KeyAction& ( l1 n1 44 == n1 )& & <- GadgetList(l1), input_code(n1), & & -> gadgetlib_number(40). input_code(n1). & }} {{KeyCheck& ( l1 27 == )& & <- GadgetList(l1), gadgetlib_number(27). & }} {{LinkGList& ( l1 l2 15 == )& & <- Window(l1), GadgetList(l2), & gadgetlib_number(15). & }} {{MakeBool& ( n1 l1 21 == )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(21). & }} {{MakeLongInt& ( d1 l1 n1 l3 20 == )& & <- 32-bit(d1), StringInfo(l1), gadget_no(n1), & GadgetList(l2), gadgetlib_number(20). & }} {{MakeProp& ( l1 n1 l2 18 == )& & <- PropInfo(l1), gadget_no(n1), GadgetList(l2), & gadgetlib_number(18). & }} {{MakePropInfo& ( n1 n2 22 == l1 )& & <- body(n1), 1_or_0(flag), & gadgetlib_number(22). & & -> PropInfo(l)(l1). & }} {{MakeString& ( l1 l2 n1 l3 19 == )& & <- UString(l1), StringInfo(l2), gadget_no(n1), & GadgetList(l3), gadgetlib_number(19). & }} {{MakeStringInfo& ( n1 23 == l1 )& & <- Char#(n1), gadgetlib_number(23). & & -> StringInfo(l1). & }} {{MoveGadget& ( n1 n2 n3 n4 n5 l1 4 == )& & <- x_topleft(n1), y_topleft(n2), width(n3), & height(n4), gadget_no(n5), GadgetList(l1), & gadgetlib_number(4). & }} {{MoveGadgetNoRef& ( n1 n2 n3 n4 n5 l1 42 == )& & <- x_topleft(n1), y_topleft(n2), width(n3), & height(n4), gadget_no(n5), GadgetList(l1), & gadgetlib_number(42). & }} {{MoveSlider& ( n1 n2 n3 l1 30 == )& & <- hor_pot(n1), ver_pot(n2), gadget_no(n3), & GadgetList(l1), gadgetlib_number(30). & }} {{PlaceGadget& ( n1 n2 n3 n4 n5 l1 40 == )& & <- x_topleft(n1), y_topleft(n2), width(n3), & height(n4), gadget_no(n5), GadgetList(l1), & gadgetlib_number(40). & }} {{RefreshGList& ( l1 29 == )& & }} {{RelinkGads& ( l1 11 == )& & <- (l1), (11). & }} {{RenderDisplay& ( l1 33 == )& & <- (l1), (33). & }} {{RemGadget& ( n1 l1 3 == )& & <- gadget_no(n1), GadgetList(l1), & gadgetlib_number(3). & }} {{RemoveGList& ( l1 13 == )& & <- GadgetList(l1), gadgetlib_number(13). & }} {{ResetGads& ( l1 n1 10 == )& & <- GadgetList(l1), gadgetlib_number(n1). & }} {{SetBorder& ( n1...n6 l1 l2 39 or 0. 39 == )& & <- leftedge(n1), topedge(n2), fpen(n3), & bpen(n4), drawmode(n5), count(n6), & Coords(l1), RPort(l2), gadgetlib_number(39). & }} {{SetBox& ( n1...n14 l1 36 or 0. 36 == )& & <- leftedge(n1), topedge(n2), width(n3), & height(n4), hi_pen(n5), lo_pen(n6), & outline_colour(n7), bevel_width(n8), & colour(n9), outline(n10), x-inset(n11), & x-inset(n12), y-inset(n16), y-inset(n14), & ***** RPort(l1), gadgetlib_number(36). & }} {{SetImage& ( n1...n8 l1 l2 37 or 0. 37 == )& & <- SrcLeftEdge(n1), SrcTopEdge(n2), & TgtLeftEdge(n3), TgtTopEdge(n4), Width(n5), & Height(n6), Minterm(n7), Mask(n8), & SrcBmap(l1), RPort(l2), & gadgetlib_number(37). & }} {{SetPix& ( n1 32 == )& & <- 1_or_0(n1), gadgetlib_number(32). & }} {{SetText& ( n1 n2 n3 n4 n5 n6 l1 l2 38 or 0. 38 == )& & <- fpen(n1), bpen(n2), drmode(n3), & leftedge(n4), topedge(n5), Font(?), & Text(l1), RPort(l2), gadgetlib_number(38). & }} {{SizeSlider& ( n1 n2 n3 l1 25 == )& & <- partsize(n1), fullsize(n2), gadget_no(n3), & GadgetList(l1), gadgetlib_number(25). & }} {{SwapGList& ( l1 l2 l3 14 == )& & <- Window(l1), NewGadgetList(l2), & OldGadgetList(l3), gadgetlib_number(14). & }} {{SwapLinkGList& ( l1 l2 l3 14 == )& & <- Window(l1), NewGadgetList(l2), & OldGadgetList(l3), gadgetlib_number(17). & }} {{UnlinkGList& ( l1 16 == )& & <- GadgetList(l1), gadgtetlib_number(16). & }} {{AddAllBobs& ( l1 l2 17 == )& & <- BobStruct(l1), RastPort(l2), & graphicslib_number(17). & }} {{AddBob& ( n1 l1 l2 10 == )& & <- bob_no(n1), BobStruct(l1), RastPort(l2). & graphicslib_number(10). & }} {{AddIEHandler& ( l1 n1 28 == )& & <- IEHandlerCode(l1), priority(n1), & graphicslib_number(28). & }} {{BlitBMap& ( l1 n1...n8 l2 l3 23 == )& & <- MaskBmap(l1), plane_on_off(n1), minterm(n2), & hor_size(n3), ver_size(n4), & source_topleft_x(n5), source_topleft_x(n6), & target_topleft_x(n7), target_topleft_y(n8), & SourceBmap(l2), TargetBmap(l3), & ***** graphicslib_number(23). & }} {{BlitMaskBMap& ( l1 n1...n8 l2 l3 n9...n12 25 == )& & <- MaskBitMap(l1), plane_on_off(n1), & bg_minterm(n2), hor_size(n3), ver_size(n4), & bg_source_x(n5), bg_source_y(n6), & target_x(n7). target_y(n8). SourcecBmap(l2), & TargetBmap(l3), fg_source_x(n9), & ***** fg_source_y(n10), fg_minterm(n11), & 0_or_1_or_2(n12). graphicslib_number(25). & }} {{BlitWait& ( 19 == )& & <- graphicslib_number(19). & }} {{CloseBobStruct& ( l1 15 == )& & <- BobStruct(l1), graphicslib_number(15). & }} {{CloseGelSys& ( l1 2 == )& & <- RastPort(l1), graphicslib_number(2). & }} {{DisOwnBlit& ( 21 == )& & <- graphicslib_number(21). & }} {{DisplayGels& ( l1 l2 13 == )& & <- RastPort(l1), ViewPort(l2), & graphicslib_number(13). & }} {{DoCollision& ( l1 12 == )& & <- RastPort(l1), graphicslib_number(12). & }} {{DrawGList& ( l1 l2 18 == )& & <- RastPort(l1), ViewPort(l2), & graphicslib_number(18). & }} {{FastBlit& ( l1 37 == )& & <- FBlit(l1), graphicslib_number(37). & }} {{FastBlitRect& ( n1 l1 43 == )& & <- PlaneMask(n1), FBlit(l1), & graphicslib_number(41). & }} {{FBMCpuClrRect& ( l1 n1 n2 n3 n4 39 == )& & <- BitMap(l1), left_edge_offset(n1), & top_edge_offset(n2), width(n3), height(n4), & graphicslib_number(39). & }} {{FCpuBlitBMap& ( l1 n1...n8 l2 l3 41 == )& & <- MaskBitMap(l1), plane_on_off(n1), & Minterm(n2), hor_size(n3), ver_size(n4), & source_topleft_x(n5), source_topleft_y(n6), & target_topleft_x(n7), target_topleft_y(n8), & SourceBitMap(l2), TargetBitMAP(l3), & ***** graphicslib_number(41). & }} {{FCpuClrRect& ( l1 n1 n2 n3 n4 n5 38 == )& & <- BPlanesStart(l1), bytes_per_row(n1), & left_edge_offset(n2), top_edge_offset(n3), & width(n4), height(n5), & graphicslib_number(38). & }} {{FCpuRectFill& ( l1 n1 n2 n3 n4 n5 40 == )& & <- BitMap(l1), left_edge_offset(n1), & top_edge_offset(n2), width(n3), height(n4), & colour_no(n5). graphicslib_number(40). & }} {{FMakeBlit& ( l1 n1...n8 l2 l3 35 == l4 )& & <- MaskBmap(l1), plane_on_off(n1), minterm(n2), & hor_size(n3), ver_size(n4), source_x(n5), & source_y(n6), target_x(n7), target_y(n8), & SoourceBmap(l2), TargetBmap(l3), & graphicslib_number(35). & & -> FBlit(l4). & }} {{FreeIEHandler& ( == )& & <- graphicslib_number(29). & }} {{FreeScrlData& ( l1 33 == )& & <- Scrolldata(l1), graphicslib_number(33). & }} {{FreeVSBob& ( l1 3 == )& & <- VSprite(l1), graphicslib_number(3). & }} {{FSBlitBMap& ( l1 45 == )& & <- BlitDef(l1), graphicslib_number(45). & }} {{FsCpuBlitBMap& ( l1 42 == )& & <- BlitDef(l1), graphicslib_number(42). & }} {{FSMakeBlit& ( l1 36 == l2 )& & <- BlitDef(l1), graphicslib_number(36). & & -> FBlit(l2). & }} {{GetBob& ( n1 l1 7 == l2 )& & <- bob_no(n1), BobStruct(l1), & graphicslib_number(7). & & -> Bob(l2). & }} {{GetCurrentVP& ( l1 22 == l2 )& & <- Window(l1). graphicslib_number(22). & & -> ViewPort(l2). & }} {{GetVS& ( n1 l1 l2 8 == )& & <- vsprite_no(n1), BobStruct(l1), & graphicslib_number(8). & & -> VSprite(l2). & }} {{GetWordOffset& ( l1 n1 n2 34 == n3 n4 )& & <- BitMap(l1), hor_pixel(n1), ver_pixel(n2), & graphicslib_number(34). & & -> byte_offset(n3), bits_offset(n4). & }} {{GfxLibBase& ( 24 == l1 )& & <- graphicslib_number(24). & & -> GraphicsLib(l1). & }} {{IEIOReq& ( 30 == l1 )& & <- graphicslib_number(30). & & -> IORequest(l1). & }} {{MakeBob& ( n1...n5 l1 l2 n...n12 5 == l3 )& & <- PlnPick(n1), PlnOnOff(n2), BitWidth(n3), & User3(n4), User2(n5), User1(n6), Cols(l1), & Img(l2), ImgDpth(n7), WordWdth(n8), hgt(n9), & initx(n10), inity(n11), flags(n12), & graphicslib_number(5). & & -> Bob_or_0.(l3). & }} {{MakeShadow& ( l1 26 == l2 )& & <- BitMap(l1), graphicslib_number(26). & & -> ShadowPlane(l2). & }} {{MakeShadowBM& ( l1 44 == l2 )& & <- BitMap(l1). graphicslib_number(44). & & -> ShadowBitMap(l2). & }} {{MakeVSPrite& ( n1...n4 l1 n5...n10 4 == l2 )& & <- User3(n1), User2(n2), User1(n3), Cols(n4), & Img(l1), ImgDpth(n5), WordWdth(n6), & height(n7), init_x(n8), init_y(n9), & flags(n10), graphicslib_number(4). & & -> VSprite_or_0.(l2). & }} {{OpenBobStruct& ( l1 14 == l2 )& & }} {{OpenGelSys& ( l1 1 == l2 )& & <- RastPort(l1), graphicslib_number(1). & & -> GelsInfo_or_0.(l2). & }} {{OwnBlit& ( 20 == )& & <- graphicslib_number(20). & }} {{RemAllBobs& ( l1 l2 l3 16 == )& & <- BobStruct(l1), RastPort(l2), ViewPort(l3), & graphicslib_number(16). & }} {{RemBob& ( n1 l1 l2 l3 11 == )& & <- bob_no(n1), BobStruct(l1), RastPort(l3), & ViewPort(l4), graphicslib_number(11). & }} {{ScrollIt& ( l1 n1 n2 n3 32 == )& & <- ScrollData(l1), num_iterations(n1), & hor_index(n2), ver_index(n3), & graphicslib_number(32). & }} {{SetBobPos& ( n1 n2 n3 l1 9 == )& & <- x(n1), y(n2), bob_no(n3), BobStruct(l1), & graphicslib_number(9). & }} {{SetUpScroll& ( l1 29 == l2 )& & <- ScrollStruct(l), graphicslib_number(31). & & -> ScrollData(l2). & }} {{SortGList& ( l1 6 == )& & <- RastPort(l1), graphicslib_number(6). & }} {{SwapBobImage& ( l1 n1 l2 n2 27 == )& & <- BobStruct(l1), bob_no(n1), & BobParamTable(l2), bob_no(n2), & graphicslib_number(27). & }} {{WaitBeam& ( n1 0 == )& & <- raster_line(n1), graphicslib_number(0). & }} ******************************************************************